Imported Upstream version 3.05
[sven/mysqltcl.git] / tests / regression_openclose.tcl
1 #!/usr/bin/tcl
2
3 if {[file exists libload.tcl]} {
4     source libload.tcl
5 } else {
6     source [file join [file dirname [info script]] libload.tcl]
7 }
8
9
10 puts "please observe memory consumption per top (Program break after reach 2000)"
11
12 set i 0
13 while 1 {
14     set c$i [mysqlconnect -u root -db uni]
15     mysqlsel [set c$i] {select * from Student}
16     while {[set row [mysqlnext [set c$i]]]!=""} {}
17     if {$i>=500} break
18     mysqlclose [set c$i]
19     puts "loop $i"
20     incr i
21 }