0027146: Create command checkplatform
[occt.git] / tests / bugs / modalg_6 / bug26447
1 puts "============"
2 puts "OCC26447"
3 puts "============"
4 puts ""
5 ##############################################################
6 # Performance degradation intersecting cylindrical surfaces
7 #############################################################
8
9 cylinder c1 0 0 0 1 0 0 0 -1 0 100
10 cylinder c2 0 0 0 0 1 0 1 0 0 100
11 mkface f1 c1
12 mkface f2 c2
13
14 dchrono cr reset
15 dchrono cr start
16
17 for {set i 1} {$i <= 1000} {incr i} {
18   bopcurves f1 f2
19 }
20
21 dchrono cr stop
22 if { [checkplatform -windows] } {
23   set max_time 7.5
24 } else {
25   set max_time 4.5
26 }
27 set TimeList [dchrono cr show]
28 regexp {Elapsed time: [-0-9.+eE]+ Hours [-0-9.+eE]+ Minutes ([-0-9.+eE]+) Seconds} $TimeList full ElapsedTime_sec
29
30 if { ${ElapsedTime_sec} > ${max_time} } {
31   puts "Error: Elapsed time of intersecting is more than ${max_time} seconds"
32 } else {
33   puts "OK: Elapsed time of intersecting is less than ${max_time} seconds"
34 }