0027691: Remove dchrono from all test cases and move its to perf group
[occt.git] / tests / bugs / modalg_5 / bug25788
1 puts "========="
2 puts "OCC25788"
3 puts "========="
4 puts ""
5 ###############################################
6 # Parallelization of the BOP Builder algorithm on second level
7 ###############################################
8
9 # box plate to cut the holes from
10 box b1 100 100 1
11
12 # N defines number of holes along each of X and Y, thus total N^2 holes
13 # will be drilled; note that the algorithm iself is likely to be quadratic
14 # for number of shapes, i.e. CPU 
15 set N 40
16 set holes {}
17 for {set i 1} {$i < $N} {incr i} {
18  for {set j 1} {$j < $N} {incr j} {
19    pcylinder p_${i}_$j 0.5 1
20    ttranslate p_${i}_$j [expr $i * 100. / $N]  [expr $j * 100. / $N]  0.
21    lappend holes p_${i}_$j
22  }
23 }
24
25 eval compound $holes b2
26
27 bclearobjects
28 bcleartools
29 baddobjects b1
30 baddtools b2
31
32 brunparallel 1
33
34 dchrono cpu reset
35 dchrono cpu start
36 bcut r b1 b2 
37 dchrono cpu stop
38 set chrono_info [dchrono cpu show]
39
40 if { [regexp {Debug mode} [dversion]] } {
41   if { [regexp {Windows} [dversion]] } {
42     set max_time 200
43   } else {
44     set max_time 200
45   }
46 } else {
47   if { [regexp {Windows} [dversion]] } {
48     set max_time 50
49   } else {
50     set max_time 50
51   }
52 }
53
54 regexp {CPU user time: ([-0-9.+eE]+) seconds} ${chrono_info} full z
55 puts "$z"
56
57 if { $z > ${max_time} } {                                         
58     puts "Elapsed time is more than ${max_time} seconds - Faulty"
59 } else {
60     puts "Elapsed time is less than ${max_time} seconds - OK"
61 }