5789daf9 |
1 | puts "===========" |
2 | puts "OCC114" |
3 | puts "===========" |
4 | |
5 | # Max number of iterations for computing memory leackage |
6 | set i_max 20 |
7 | puts "Amount of iterations is $i_max" |
8 | |
9 | NewDocument D MDTV-Standard |
10 | UndoLimit D 10 |
11 | |
12 | restore [locate_data_file OCC114.brep] s |
13 | |
14 | set listmem {} |
15 | for {set i 1} {${i} <= ${i_max}} {incr i} { |
16 | |
17 | OpenCommand D |
18 | SetShape D 0:1 s |
19 | AbortCommand D |
20 | |
21 | # check memory usage (with tolerance equal to half page size) |
22 | lappend listmem [expr [meminfo w] / 1024] |
23 | if { [checktrend $listmem 0 1 "Memory leak detected"] } { |
24 | puts "No memory leak, $i iterations" |
25 | break |
26 | } |
27 | } |