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