mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
42 lines
1.0 KiB
Plaintext
42 lines
1.0 KiB
Plaintext
pload QAcommands
|
|
|
|
set info [QANTestNCollectionIndexedDataMap]
|
|
|
|
set keys {}
|
|
set values {}
|
|
foreach line [split $info "\n"] {
|
|
set key [string trim [string range $line 0 [expr {[string first ":" $line] - 1}]]]
|
|
set value [string trim [string range $line [expr {[string first ":" $line] + 1}] [expr {[string length $line] - 1}]]]
|
|
if {[string length $key] != 0} {
|
|
if {[string length $value] != 0} {
|
|
lappend keys $key
|
|
lappend values $value
|
|
}
|
|
}
|
|
}
|
|
|
|
if { [checkplatform -windows] } {
|
|
set check_values { 0.017762852
|
|
0.008435507
|
|
0.018746851
|
|
0.079263713
|
|
}
|
|
} else {
|
|
set check_values { 0.1549615
|
|
0.1290805
|
|
0.1602191
|
|
0.3487175
|
|
}
|
|
}
|
|
|
|
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
|
|
}
|