Imported Upstream version 3.05

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

diff --git a/tests/regression_openclose.tcl b/tests/regression_openclose.tcl
new file mode 100755 (executable)
index 0000000..4bf3bf3
--- /dev/null
+++ b/tests/regression_openclose.tcl
@@ -0,0 +1,21 @@
+#!/usr/bin/tcl
+
+if {[file exists libload.tcl]} {
+    source libload.tcl
+} else {
+    source [file join [file dirname [info script]] libload.tcl]
+}
+
+
+puts "please observe memory consumption per top (Program break after reach 2000)"
+
+set i 0
+while 1 {
+    set c$i [mysqlconnect -u root -db uni]
+    mysqlsel [set c$i] {select * from Student}
+    while {[set row [mysqlnext [set c$i]]]!=""} {}
+    if {$i>=500} break
+    mysqlclose [set c$i]
+    puts "loop $i"
+    incr i
+}