Imported Upstream version 3.052

[sven/mysqltcl.git] / tests / test41.tcl

diff --git a/tests/test41.tcl b/tests/test41.tcl
index 399f443de3ab3d48e2d4b3ad8baf115a5e0de385..fd78ad817fe66534262a9aa47e9a9ca3d8951240 100755 (executable)
--- 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 {