0023882: Memory leak is reported on BOP in test bugs fclasses bug7287_5.
[occt.git] / tests / bugs / fclasses / bug7287_3
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
16 set NCycles 100
17 box b1 10 10 10 100 100 100
18 box b2 50 50 50
19
20 set listmem {}
21 for {set i 1} {${i} <= ${NCycles}} {incr i } {
22     bop b1 b2
23     boptuc r
24
25     lappend listmem [meminfo h]
26     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
27         puts "No memory leak, $i iterations"
28         break
29     }
30 }
31