mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
54 lines
1.1 KiB
Plaintext
Executable File
54 lines
1.1 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC162"
|
|
puts "========"
|
|
|
|
pload QAcommands
|
|
pload XDE
|
|
# Gauge for virtual memory
|
|
if ![string compare $tcl_platform(platform) "windows"] {
|
|
proc VMem { memory } {
|
|
upvar $memory mem
|
|
regsub "^.*PeakVirtualSize: *\(\[0-9\]*\) KB.*$" \
|
|
[exec tlist [pid]] "\\1" mem
|
|
}
|
|
} else {
|
|
proc VMem { memory } {
|
|
upvar $memory mem
|
|
set mem [lindex [exec ps -o vsz -p [pid]] 1]
|
|
}
|
|
}
|
|
|
|
set Mem0 ""
|
|
set Mem1 ""
|
|
VMem Mem0
|
|
|
|
# vinit
|
|
restore [locate_data_file OCC162.brep] s
|
|
# vdisplay s
|
|
|
|
OCC162 s
|
|
|
|
VMem Mem1
|
|
puts "... The peak memory consumed: [expr $Mem1 - $Mem0] KB"
|
|
|
|
set MemoryLeakage 0
|
|
set i_max 5
|
|
for {set i 1} {${i} <= ${i_max}} {incr i} {
|
|
OCC162 s
|
|
VMem Mem2
|
|
set Delta [expr $Mem2 - $Mem1]
|
|
set MemoryLeakage [expr $MemoryLeakage + $Delta]
|
|
puts " $i delta memory consumed: $Delta KB"
|
|
}
|
|
|
|
set percent_max 5
|
|
set percent [expr ${MemoryLeakage} / (double(${i_max}) * (${Mem1} - ${Mem0})) * 100.]
|
|
puts "percent = ${percent}"
|
|
|
|
if {${percent} > ${percent_max}} {
|
|
puts "OCC162: Error : There is memory leakage during sewing operation"
|
|
} else {
|
|
puts "OCC162: OK"
|
|
}
|
|
|