2fed9a9debca8e39547d73fd8dba6d611b6c58fa
[occt.git] / tests / bugs / fclasses / bug7287_1
1 puts "============"
2 puts "OCC7287"
3 puts "============"
4 puts ""
5 ######################################################
6 # Problem of Memory Leak
7 ######################################################
8
9 #
10 # Result is Null shape
11 #
12
13 set BugNumber OCC7287
14
15 set NCycles 1000
16 box b1 100 100 100
17 box b2 50 50 50
18 bop b1 b2
19
20 set listmem {}
21 for {set i 1} {${i} <= ${NCycles}} {incr i } {
22     bopcut r
23     
24     lappend listmem [expr [meminfo w] / 1024]
25     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
26         puts "No memory leak, $i iterations"
27         break
28     }
29 }