X-Git-Url: https://git.sven.stormbind.net/?p=sven%2Fmysqltcl.git;a=blobdiff_plain;f=tests%2Ftest41.tcl;h=fd78ad817fe66534262a9aa47e9a9ca3d8951240;hp=399f443de3ab3d48e2d4b3ad8baf115a5e0de385;hb=0a085bb35433261a474838231960d8ee3dc31d5c;hpb=623cfe22e6c48fdcda2d03790a11bdc5d9e1873b

diff --git a/tests/test41.tcl b/tests/test41.tcl
index 399f443..fd78ad8 100755
--- a/tests/test41.tcl
+++ b/tests/test41.tcl
@@ -190,6 +190,18 @@ tcltest::test {nextresult-1.0} {only one result} -body {
    return $hadRow
 } -result 1 -returnCodes 2
 
+tcltest::test {nextresult-rows-1.1} {rows number} -body {
+   mysql::ping $conn
+   mysql::sel $conn {
+      select name from Student where name='Sojka';
+      select name,semester from Student;
+   }
+   set r1 [mysql::result $conn cols]
+   mysql::nextresult $conn
+   set r2 [mysql::result $conn cols]
+   expr {$r1+$r2}
+} -result 3
+
 tcltest::test {setserveroption-1.0} {set multistatment off} -body {
    mysql::setserveroption $conn -multi_statment_off
    mysql::exec $conn {