0027901: Resource_Manager creates directory with insufficient permissions
[occt.git] / tests / bugs / fclasses / bug7287_5
1 puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
2 puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
3
4
5 puts "============"
6 puts "OCC7287"
7 puts "============"
8 puts ""
9 ######################################################
10 # Problem of Memory Leak
11 ######################################################
12
13 #
14 # Result is not Null shape
15 #
16
17 set BugNumber OCC7287
18
19 set NCycles 10
20 box b1 10 10 10 100 100 100
21 box b2 50 50 50
22
23 set listmem {}
24 for {set i 1} {${i} <= ${NCycles}} {incr i } {
25     bop b1 b2
26     bopfuse r
27
28     lappend listmem [meminfo h]
29     checktrend $listmem 0 100 "Memory leak detected"
30 }