database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-08-01 03:47:19 +03:00
Code Activity

merge 48671

Browse Source
This commit is contained in:
Bjorn Munch
2009-11-19 10:16:03 +01:00
parent d97cc562fc b229781c2d
commit 713f805531
3 changed files with 64 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mysql-test/r/mysqltest.result
View File

@ -553,6 +553,8 @@ hello
mysqltest: At line 1: Max delimiter length(16) exceeded
hello
hello
val is 5
val is 5
mysqltest: At line 1: test of die
Some output
create table t1( a int, b char(255), c timestamp);

14
mysql-test/t/mysqltest.test
View File

@ -1905,6 +1905,20 @@ perl;
print "hello\n";
EOF
# Test perl within while, also with if being false first iteration
let $outer= 3;
let $ifval= 0;
while ($outer) {
if ($ifval) {
perl UNTIL;
my $val= 5;
print "val is $val\n";
UNTIL
}
inc $ifval;
dec $outer;
}
# ----------------------------------------------------------------------------
# test for die
# ----------------------------------------------------------------------------