a87752f3 |
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 | |
58cf74e0 |
28 | checkprops result -s 254.16 |
29 | checkshape result |
5747059b |
30 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
31 | |