[occt.git] / tests / bugs / fclasses / bug7287_2

puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"

puts "============"
puts "OCC7287"
puts "============"
puts ""
######################################################
# Problem of Memory Leak
######################################################

#
# Result is not Null shape
#

set BugNumber OCC7287

set NCycles 10
box b1 10 10 10 100 100 100
box b2 50 50 50

set listmem {}
for {set i 1} {${i} <= ${NCycles}} {incr i } {
    bop b1 b2
    bopcut r
    lappend listmem [meminfo h]
    checktrend $listmem 0 100 "Memory leak detected"
}
Commit	Line	Data
37d6975c	1	puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
37d6975c	2	puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
9aa684ed	3
352ffd73	4	puts "============"
	5	puts "OCC7287"
	6	puts "============"
	7	puts ""
	8	######################################################
	9	# Problem of Memory Leak
	10	######################################################
	11
	12	#
	13	# Result is not Null shape
	14	#
	15
	16	set BugNumber OCC7287
	17
9aa684ed	18	set NCycles 10
352ffd73	19	box b1 10 10 10 100 100 100
352ffd73	20	box b2 50 50 50
352ffd73	21
	22	set listmem {}
	23	for {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	}