1 # Test for #23489: memory leak in TNaming_NamedShape destructor
5 # take some big file to be loaded
6 set file [locate_data_file Bottom.brep]
9 for {set i 1} {$i < 10} {incr i} {
13 # add shape to new OCAF document
14 NewDocument D MDTV-Standard
16 # add shape to document
19 # Note: if ForgetAll or Undo is called here, memory is correctly freed!
26 # unload shape (replace by small one)
29 # check memory usage (with tolerance equal to half page size)
30 lappend listmem [meminfo h]
31 if { [checktrend $listmem 0 256 "Memory leak detected"] } {
32 puts "No memory leak, $i iterations"