a87752f3 |
1 | |
2 | puts "========" |
3 | puts "PRO7934" |
4 | puts "OCC452" |
5 | puts "(case 4)" |
6 | puts "========" |
7 | puts "" |
8 | |
9 | restore [locate_data_file CTO900_pro7934a.rle] a |
10 | set che [checkshape a] |
11 | if { [regexp {Faulty} $che ] == 1 } { |
12 | puts "Faulty OCC452 (shape 7): Source shape is invalid. It was detected by Checkshape command" |
13 | } else { |
14 | puts "OCC452 OK (shape 7): Source shape is valid" |
15 | } |
16 | |
17 | restore [locate_data_file CTO900_pro7934b.rle] b |
18 | set che [checkshape b] |
19 | if { [regexp {Faulty} $che ] == 1 } { |
20 | puts "Faulty OCC452 (shape 8): Source shape is invalid. It was detected by Checkshape command" |
21 | } else { |
22 | puts "OCC452 OK (shape 8): Source shape is valid" |
23 | } |
24 | |
25 | dchrono h2 reset |
26 | dchrono h2 start |
27 | |
28 | bfuse result a b |
29 | #checkshape -top res |
30 | |
31 | dchrono h2 stop |
32 | set q2 [ dchrono h2 show ] |
33 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
34 | puts "$z2" |
35 | if { $z2 > 5 } { |
36 | puts "Elapsed time is more then 5 seconds - Faulty" |
37 | } else { |
38 | puts "Elapsed time is less then 5 seconds - OK" |
39 | } |
40 | set square 201978 |
41 | set 2dviewer 0 |
42 | |
43 | |
44 | |