3 set info [QANTestNCollectionIndexedMap]
7 foreach line [split $info "\n"] {
8 set key [string trim [string range $line 0 [expr {[string first ":" $line] - 1}]]]
9 set value [string trim [string range $line [expr {[string first ":" $line] + 1}] [expr {[string length $line] - 1}]]]
10 if {[string length $key] != 0} {
11 if {[string length $value] != 0} {
18 if { [string compare $tcl_platform(platform) "windows"] != 0 } {
19 set check_values { 0.1540285
25 set check_values { 0.018136771
34 set value [lindex $values $index]
35 if { $value > [lindex $check_values $index] } {
36 puts "ERROR: performance of $key become worse"
38 puts "OK: performance of $key is OK"