File: regression_openclose.tcl

package info (click to toggle)
mysqltcl 3.052-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 844 kB
  • ctags: 195
  • sloc: ansic: 1,917; tcl: 1,287; sh: 142; makefile: 28; sql: 20
file content (21 lines) | stat: -rwxr-xr-x 471 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
}