projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0f9520ef701db482c2eef72a87da2746c83e4194
[occt.git]
/
tests
/
bugs
/
vis
/
bug79
1
puts "========"
2
puts "OCC79"
3
puts "========"
4
5
vinit
6
restore [locate_data_file OCC162.brep] s
7
vdisplay s
8
9
verase s
10
vdisplay s
11
12
set listmem {}
13
set i_max 10
14
for {set i 1} {${i} <= ${i_max}} {incr i} {
15
verase s
16
vdisplay s
17
18
lappend listmem [expr [meminfo w] / 1024]
19
if { [checktrend $listmem 0 1 "Memory leak detected"] } {
20
puts "No memory leak, $i iterations"
21
break
22
}
23
}