1 puts "TODO ?OCC24156 MacOS: Tcl Exception: File Bottom.brep could not be found"
2 puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE"
4 # Test for #23489: memory leak in TNaming_NamedShape destructor
8 # take some big file to be loaded
9 set file [locate_data_file Bottom.brep]
12 for {set i 1} {$i < 10} {incr i} {
16 # add shape to new OCAF document
17 NewDocument D MDTV-Standard
19 # add shape to document
22 # Note: if ForgetAll or Undo is called here, memory is correctly freed!
29 # unload shape (replace by small one)
32 # check memory usage (with tolerance equal to half page size)
33 lappend listmem [meminfo h]
34 if { [checktrend $listmem 0 256 "Memory leak detected"] } {
35 puts "No memory leak, $i iterations"