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 }