Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug452_1
1
2 puts "========"
3 puts "OCC452"
4 puts "(case 1)"
5 puts "========"
6 puts ""
7
8 pcone pc 10 0 20
9 explode pc f
10
11 prism pcy pc_2 0 0 10
12
13 dchrono h2 reset
14 dchrono h2 start
15
16 bcut result pc pcy
17
18 dchrono h2 stop
19 set q2 [ dchrono h2 show ]
20 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
21 puts "$z2"
22 if { $z2 > 3 } {                             
23     puts "Elapsed time is more then 3 seconds - Faulty"
24 } else {
25     puts "Elapsed time is less then 3 seconds - OK"      
26 }
27
28 set square 254.16
29 set 2dviewer 0
30