0024005: Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
[occt.git] / tests / bugs / modalg_5 / bug24005
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
22 set max_time 0.1
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