| 1 | puts "========" |
| 2 | puts "OCC277" |
| 3 | puts "========" |
| 4 | puts "" |
| 5 | |
| 6 | pload QAcommands |
| 7 | |
| 8 | OCC277 |
| 9 | |
| 10 | set listmem {} |
| 11 | set i_max 10 |
| 12 | for {set i 1} {${i} <= ${i_max}} {incr i} { |
| 13 | OCC277 |
| 14 | |
| 15 | lappend listmem [meminfo h] |
| 16 | checktrend $listmem 0 1 "Memory leak detected" |
| 17 | } |