tests/bugs/fclasses/bug24863_1

   1 # Test for #24863: memory leak
   2
   3 set listmem {}
   4
   5 for {set i 1} {$i < 10} {incr i} {
   6     box b 10 10 10
   7
   8     lappend listmem [meminfo h]
   9     checktrend $listmem 0 256 "Memory leak detected"
  10 }