0023882: Memory leak is reported on BOP in test bugs fclasses bug7287_5.
[occt.git] / tests / bugs / fclasses / bug7287_6
1 puts "============"
2 puts "OCC7287"
3 puts "============"
4 puts ""
5 ######################################################
6 # Problem of Memory Leak
7 ######################################################
8
9 #
10 # Result is not Null shape
11 #
12
13 set BugNumber OCC7287
14
15 set NCycles 100
16 box b1 10 10 10 100 100 100
17 box b2 50 50 50
18
19 for {set i 1} {${i} <= ${NCycles}} {incr i } {
20     bop b1 b2
21     bopsection r
22
23     lappend listmem [meminfo h]
24     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
25         puts "No memory leak, $i iterations"
26         break
27     }
28 }
29