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