0024201: Remove TODO "Tcl Exception: File aaa.stl could not be found" and similar...
[occt.git] / tests / bugs / caf / bug23489
1 # Test for #23489: memory leak in TNaming_NamedShape destructor
2
3 pload OCAF
4
5 # take some big file to be loaded
6 set file [locate_data_file Bottom.brep]
7
8 set listmem {}
9 for {set i 1} {$i < 10} {incr i} {
10     # load big shape
11     restore $file a
12
13     # add shape to new OCAF document
14     NewDocument D MDTV-Standard
15
16     # add shape to document
17     SetShape D 0:1 a
18
19     # Note: if ForgetAll or Undo is called here, memory is correctly freed!
20     # ForgetAll D 0:1
21
22     # close document
23     Close D
24    
25
26     # unload shape (replace by small one)
27     vertex a 0 0 0
28
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"
33         break
34     }
35 }