0027604: Application Framework - memory is not released after closing XBF file
[occt.git] / tests / bugs / caf / bug27604
1 puts "========"
2 puts "OCC27604"
3 puts "Application Framework - memory is not released after closing XBF file"
4 puts "========"
5 puts ""
6
7 set aBigShape Bottom.brep
8
9 pload OCAF MODELING
10
11 # just a big shape to fit in memory
12 restore [locate_data_file $aBigShape] s
13
14 # store it in the document
15 NewDocument D BinOcaf
16 SetShape D "0:2" s
17 SaveAs D test.cbf
18 Close D
19
20 # store the memory used before opening a document
21 set aBefore [meminfo h]
22
23 Open test.cbf DD
24 set aDocLoaded [meminfo h]
25 set aBigDelta [expr $aDocLoaded - $aBefore]
26 Close DD
27
28 set anAfter [meminfo h]
29 set aDelta [expr $anAfter - $aBefore]
30
31 puts "Memory used before: $aBefore"
32 puts "After open: $aDocLoaded"
33 puts "After close: $anAfter"
34
35 # if after the close the memory used left 5% more than before closed, this is an issue
36 # (less 5% is the measurement tolerance)
37 if {[expr $aBigDelta / 20. - $aDelta] < 0} {
38   puts "Error: the memory is not freed after Open/Close"
39 }