0027146: Create command checkplatform
[occt.git] / tests / perf / ncollection / A3
CommitLineData
9e506120 1pload QAcommands
2
3set info [QANTestNCollectionIndexedDataMap]
4
5set keys {}
6set values {}
7foreach 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 18if { [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
32set index 0
33foreach key $keys {
34 set value [lindex $values $index]
35 if { $value > [lindex $check_values $index] } {
36 puts "ERROR: performance of $key become worse"
37 } else {
38 puts "OK: performance of $key is OK"
39 }
40 incr index
41}