788cbaf4 |
1 | puts "============" |
2 | puts "OCC24005" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds |
7 | ############################### |
8 | |
9 | pload QAcommands |
10 | |
11 | dchrono h reset |
12 | dchrono h start |
13 | |
14 | OCC24005 result |
15 | |
16 | dchrono h stop |
17 | set q [dchrono h show] |
18 | |
19 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z |
20 | puts "$z" |
21 | |
4e3aa6b7 |
22 | set max_time 0.4 |
788cbaf4 |
23 | if { $z > ${max_time} } { |
24 | puts "Elapsed time is more than ${max_time} seconds - Faulty" |
25 | } else { |
26 | puts "Elapsed time is less than ${max_time} seconds - OK" |
27 | } |
28 | |
29 | if { [regexp {Ellipse} [dump result]] == 1 } { |
30 | puts "result is OK" |
31 | } else { |
32 | puts "result is Faulty" |
33 | } |
34 | |
35 | set 2dviewer 1 |