1ef01619eaf444e522140b488005d28a246e3d45
[occt.git] / tests / bugs / moddata_3 / bug162
1 puts "========"
2 puts "OCC162"
3 puts "========"
4
5 pload QAcommands
6 pload XDE
7
8 restore [locate_data_file OCC162.brep] s 
9
10 OCC162 s
11
12 set i_max 5
13 for {set i 1} {${i} <= ${i_max}} {incr i} {
14     OCC162 s
15     lappend listmem [meminfo h]
16     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
17         puts "No memory leak, $i iterations"
18         break
19     }
20 }
21