X-Git-Url: https://git.sven.stormbind.net/?p=sven%2Fmysqltcl.git;a=blobdiff_plain;f=tests%2Fregression.tcl;fp=tests%2Fregression.tcl;h=0b29bcae911ea535f6915e416c96c1f11201af21;hp=0000000000000000000000000000000000000000;hb=8b83892bf9d924349d5e09c88f16790a8086a950;hpb=b47a140e1d8fa10b34c244d077b2a3a7f36c7ff8

diff --git a/tests/regression.tcl b/tests/regression.tcl
new file mode 100755
index 0000000..0b29bca
--- /dev/null
+++ b/tests/regression.tcl
@@ -0,0 +1,33 @@
+#!/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 c [mysqlconnect -u root -db uni]
+set i 0
+set p 0
+while 1 {
+    set a [mysqlsel $c "select * from Student" -list]
+    set d [string trim " $c "]
+    mysqlsel $d {select * from Student}
+    while {[set row [mysqlnext $d]]!=""} {}
+    unset d
+    set q [mysqlquery $c {select * from Student}]
+    while {[set row [mysqlnext $q]]!=""} {}
+    mysqlendquery $q
+    mysqlsel $c {select MatrNr,Name,Semester from Student}
+    mysqlmap $c {MatrNr Name Semester} {
+	set all [list $MatrNr $Name $Semester]
+    }
+    if {$i>100} {puts "loop [incr p]"; set i 0}
+    incr i
+    if {$p>=2000} break
+}
+mysqlclose $c
+unset c