tests/regression.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 c [mysqlconnect -u root -db uni]
  13 set i 0
  14 set p 0
  15 while 1 {
  16     set a [mysqlsel $c "select * from Student" -list]
  17     set d [string trim " $c "]
  18     mysqlsel $d {select * from Student}
  19     while {[set row [mysqlnext $d]]!=""} {}
  20     unset d
  21     set q [mysqlquery $c {select * from Student}]
  22     while {[set row [mysqlnext $q]]!=""} {}
  23     mysqlendquery $q
  24     mysqlsel $c {select MatrNr,Name,Semester from Student}
  25     mysqlmap $c {MatrNr Name Semester} {
  26         set all [list $MatrNr $Name $Semester]
  27     }
  28     if {$i>100} {puts "loop [incr p]"; set i 0}
  29     incr i
  30     if {$p>=2000} break
  31 }
  32 mysqlclose $c
  33 unset c