0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / tests / bugs / caf / bug114
1 puts "==========="
2 puts "OCC114"
3 puts "==========="
4
5 # Max number of iterations for computing memory leackage
6 set i_max 10
7 puts "Amount of iterations is $i_max"
8
9 NewDocument D BinOcaf
10 UndoLimit D 10
11
12 restore [locate_data_file OCC294.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 [meminfo h]
23     checktrend $listmem 0 1 "Memory leak detected"
24 }