4 set info [QANTestNCollectionPerformance]
8 unset -nocomplain std_cl occt_cl diff_cl
9 foreach line [split $info "\n"] {
10 if { [regexp {(std::.*)} $line] } {
12 if {[info exists std_cl] && [info exists occt_cl] && [info exists diff_cl]} {
13 lappend values "$diff_cl"
16 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
18 lappend values "$diff_cl"
20 if { [checkplatform -windows] } {
21 set check_values { 1.383409071179103
31 if { [regexp {64} [dversion]] } {
32 set check_values { 1.5
44 set check_values { 1.2363286058767904
58 set value [lindex $values $index]
59 if { $value > [lindex $check_values $index] } {
60 puts "Error: performance of $key become worse"
62 puts "OK: performance of $key is OK"