mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
618617fe06
Function perf_sprint_all_meters added in OSD_PerfMeter.h to allow printing to string buffer rather than stdout. Macro PERF_PRINT_ALL converted to functional form. Command dperf added in DRAW to print and conditionally reset all meters. Description of these tools is added in Debug Hints. Modified output of command QANTestNCollectionPerformance. Added test case perf/ncollection/A1 Modified ratio of performance to check all platforms Small correction of test-case for Windows platform
53 lines
1.6 KiB
Plaintext
53 lines
1.6 KiB
Plaintext
cpulimit 5000
|
|
pload QAcommands
|
|
|
|
set info [QANTestNCollectionPerformance]
|
|
|
|
set values {}
|
|
set keys {}
|
|
unset -nocomplain std_cl occt_cl diff_cl
|
|
foreach line [split $info "\n"] {
|
|
if { [regexp {(std::.*)} $line] } {
|
|
lappend keys $line
|
|
if {[info exists std_cl] && [info exists occt_cl] && [info exists diff_cl]} {
|
|
lappend values "$diff_cl"
|
|
}
|
|
}
|
|
regexp {\s*[-0-9*.+eE]+\s+([-0-9*.+eE]+)\s+([-0-9*.+eE]+)\s+([-0-9*.+eE]+)} $line dump std_cl occt_cl diff_cl
|
|
}
|
|
lappend values "$diff_cl"
|
|
|
|
if { [string compare $tcl_platform(platform) "windows"] != 0 } {
|
|
set check_values { 1.2363286058767904
|
|
1.9537414143534
|
|
1.2596260162601621
|
|
2.8737043746844462
|
|
1.2133020329576465
|
|
1.2164522569168656
|
|
1.2495457282327385
|
|
0.10352433841051313
|
|
0.45175659293697572
|
|
}
|
|
} else {
|
|
set check_values { 1.383409071179103
|
|
5.1472531605899908
|
|
1.35719377028335395
|
|
5.5309830187022213
|
|
1.18734859347377246
|
|
1.18885181806915312
|
|
1.4285334583511072
|
|
0.20619280354776386
|
|
0.05983563611646603
|
|
}
|
|
}
|
|
set index 0
|
|
foreach key $keys {
|
|
set value [lindex $values $index]
|
|
if { $value > [lindex $check_values $index] } {
|
|
puts "Error: performance of $key become worse"
|
|
} else {
|
|
puts "OK: performance of $key is OK"
|
|
}
|
|
incr index
|
|
}
|