0025987: Integration part of modified unstable test cases
[occt.git] / tests / bugs / fclasses / bug7287_2
CommitLineData
9aa684ed 1puts "TODO ?OCC25921 Debian60-64: Tcl Exception: Memory leak detected"
2puts "TODO ?OCC25921 Debian60-64: TEST INCOMPLETE"
3
352ffd73 4puts "============"
5puts "OCC7287"
6puts "============"
7puts ""
8######################################################
9# Problem of Memory Leak
10######################################################
11
12#
13# Result is not Null shape
14#
15
16set BugNumber OCC7287
17
9aa684ed 18set NCycles 10
352ffd73 19box b1 10 10 10 100 100 100
20box b2 50 50 50
352ffd73 21
22set listmem {}
23for {set i 1} {${i} <= ${NCycles}} {incr i } {
5d05cf31 24 bop b1 b2
352ffd73 25 bopcut r
67a1064e 26 lappend listmem [meminfo h]
9aa684ed 27 checktrend $listmem 0 100 "Memory leak detected"
352ffd73 28}