0030413: Tests - increase counters within perf/ncollection/A1
[occt.git] / tests / perf / ncollection / A1
CommitLineData
618617fe 1cpulimit 5000
2pload QAcommands
3
4set info [QANTestNCollectionPerformance]
5
6set values {}
7set keys {}
8unset -nocomplain std_cl occt_cl diff_cl
9foreach line [split $info "\n"] {
10 if { [regexp {(std::.*)} $line] } {
11 lappend keys $line
12 if {[info exists std_cl] && [info exists occt_cl] && [info exists diff_cl]} {
13 lappend values "$diff_cl"
14 }
15 }
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
17}
18lappend values "$diff_cl"
19
863f782a 20if { [checkplatform -windows] } {
eeabb8f8 21 set check_values { 1.5
22 5.2
23 5.7
24 5.7
25 1.7
26 1.3
27 1.6
28 0.4
29 0.4
618617fe 30 }
863f782a 31} else {
eeabb8f8 32 set check_values { 1.4
7686e915 33 5.0
eeabb8f8 34 1.6
7686e915 35 7.0
eeabb8f8 36 1.4
37 1.4
38 1.4
7686e915 39 0.2
eeabb8f8 40 0.5
f1b0b4f9 41 }
618617fe 42}
863f782a 43
618617fe 44set index 0
45foreach key $keys {
46 set value [lindex $values $index]
47 if { $value > [lindex $check_values $index] } {
7686e915 48 puts "Error: performance of $key become worse than before"
618617fe 49 } else {
7686e915 50 puts "OK: performance of $key is within expected limits"
618617fe 51 }
52 incr index
53}