tests/bugs/moddata_2/bug277

   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 }