tests/bugs/caf/bug31075

   1 puts "============"
   2 puts "0031075: Application Framework - reading STEP file into TDocStd_Document leads to memory leaks"
   3 puts "============"
   4
   5 pload XDE
   6
   7 puts "Create a new document outside of application, add a shape an release all variables in cycle to see if allocated heap memory grows"
   8 set listmem {}
   9 for {set i 1} {$i < 100} {incr i} {
  10   NewDocument D
  11   box aBox 10 10 10
  12   XAddShape D aBox
  13   unset aBox
  14   unset D
  15   lappend listmem [meminfo h]
  16   checktrend $listmem 0 0 "Memory leak"
  17 }