5789daf9 |
1 | puts "===========" |
2 | puts "OCC114" |
3 | puts "===========" |
4 | |
5 | # Max number of iterations for computing memory leackage |
9aa684ed |
6 | set i_max 10 |
5789daf9 |
7 | puts "Amount of iterations is $i_max" |
8 | |
e837410d |
9 | NewDocument D BinOcaf |
5789daf9 |
10 | UndoLimit D 10 |
11 | |
61c421bf |
12 | restore [locate_data_file OCC294.brep] s |
5789daf9 |
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) |
67a1064e |
22 | lappend listmem [meminfo h] |
9aa684ed |
23 | checktrend $listmem 0 1 "Memory leak detected" |
5789daf9 |
24 | } |