0023880: Integration of grid "ncl" into the new testing system
[occt.git] / tests / perf / ncollection / A1
1 cpulimit 5000
2 pload QAcommands
3
4 set info [QANTestNCollectionPerformance]
5
6 set values {}
7 set keys {}
8 unset -nocomplain std_cl occt_cl diff_cl
9 foreach 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 }
18 lappend values "$diff_cl"
19
20 if { [string compare $tcl_platform(platform) "windows"] != 0 } {
21   set check_values  { 1.2363286058767904
22                       1.9537414143534
23                       1.2596260162601621
24                       2.8737043746844462
25                       1.2133020329576465
26                       1.2164522569168656
27                       1.2495457282327385
28                       0.10352433841051313
29                       0.45175659293697572
30                     }
31 } else {
32   set check_values  { 1.383409071179103
33                       5.1472531605899908
34                       1.35719377028335395
35                       5.5309830187022213
36                       1.18734859347377246
37                       1.18885181806915312
38                       1.4285334583511072
39                       0.20619280354776386
40                       0.05983563611646603
41                     }
42 }
43 set index 0
44 foreach key $keys {
45   set value [lindex $values $index]
46   if { $value > [lindex $check_values $index] } {
47     puts "Error: performance of $key become worse"
48   } else {
49     puts "OK: performance of $key is OK"
50   }
51   incr index
52 }