9e506120 |
1 | pload QAcommands |
2 | |
3 | set info [QANTestNCollectionIndexedDataMap] |
4 | |
5 | set keys {} |
6 | set values {} |
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} { |
12 | lappend keys $key |
13 | lappend values $value |
14 | } |
15 | } |
16 | } |
17 | |
863f782a |
18 | if { [checkplatform -windows] } { |
9e506120 |
19 | set check_values { 0.017762852 |
20 | 0.008435507 |
21 | 0.018746851 |
22 | 0.079263713 |
23 | } |
863f782a |
24 | } else { |
25 | set check_values { 0.1549615 |
26 | 0.1290805 |
27 | 0.1602191 |
28 | 0.3487175 |
29 | } |
9e506120 |
30 | } |
31 | |
32 | set index 0 |
33 | foreach key $keys { |
34 | set value [lindex $values $index] |
35 | if { $value > [lindex $check_values $index] } { |
9779ff75 |
36 | puts "Error: performance of $key become worse" |
9e506120 |
37 | } else { |
38 | puts "OK: performance of $key is OK" |
39 | } |
40 | incr index |
41 | } |