0023882: Memory leak is reported on BOP in test bugs fclasses bug7287_5.
[occt.git] / tests / bugs / fclasses / bug7287_5
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
19for {set i 1} {${i} <= ${NCycles}} {incr i } {
5d05cf31 20 bop b1 b2
352ffd73 21 bopfuse r
22
67a1064e 23 lappend listmem [meminfo h]
352ffd73 24 if { [checktrend $listmem 0 1 "Memory leak detected"] } {
67a1064e 25 puts "No memory leak, $i iterations"
26 break
352ffd73 27 }
28}