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 { [string compare $tcl_platform(platform) "windows"] != 0 } {
21 set check_values { 1.2363286058767904
32 set check_values { 1.383409071179103
45 set value [lindex $values $index]
46 if { $value > [lindex $check_values $index] } {
47 puts "Error: performance of $key become worse"
49 puts "OK: performance of $key is OK"