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

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