a87752f3 |
1 | |
2 | puts "========" |
3 | puts "GER60239" |
4 | puts "OCC452" |
5 | puts "(case 2)" |
6 | puts "========" |
7 | puts "" |
8 | |
9 | restore [locate_data_file mds-part1.rle] a |
10 | set che [checkshape a] |
11 | if { [regexp {Faulty} $che ] == 1 } { |
12 | puts "Faulty OCC452 (shape 1): Source shape is invalid. It was detected by Checkshape command" |
13 | } else { |
14 | puts "OCC452 OK (shape 1): Source shape is valid" |
15 | } |
16 | |
17 | restore [locate_data_file mds-part2.rle] b |
18 | set che [checkshape b] |
19 | if { [regexp {Faulty} $che ] == 1 } { |
20 | puts "Faulty OCC452 (shape 2): Source shape is invalid. It was detected by Checkshape command" |
21 | } else { |
22 | puts "OCC452 OK (shape 2): Source shape is valid" |
23 | } |
24 | |
25 | restore [locate_data_file CTO900_ger60239a.rle] c |
26 | set che [checkshape c] |
27 | if { [regexp {Faulty} $che ] == 1 } { |
28 | puts "Faulty OCC452 (shape 3): Source shape is invalid. It was detected by Checkshape command" |
29 | } else { |
30 | puts "OCC452 OK (shape 3): Source shape is valid" |
31 | } |
32 | |
33 | restore [locate_data_file CTO900_ger60239b.rle] d |
34 | set che [checkshape d] |
35 | if { [regexp {Faulty} $che ] == 1 } { |
36 | puts "Faulty OCC452 (shape 4): Source shape is invalid. It was detected by Checkshape command" |
37 | } else { |
38 | puts "OCC452 OK (shape 4): Source shape is valid" |
39 | } |
40 | dchrono h2 reset |
41 | dchrono h2 start |
42 | |
43 | bfuse r a b |
44 | #checkshape r |
45 | |
46 | bfuse result c d |
47 | |
48 | dchrono h2 stop |
49 | set q2 [ dchrono h2 show ] |
50 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2 |
51 | puts "$z2" |
52 | if { $z2 > 60 } { |
53 | puts "Elapsed time is more then 60 seconds - Faulty" |
54 | } else { |
55 | puts "Elapsed time is less then 60 seconds - OK" |
56 | } |
57 | set square 3468.6 |
58 | set 2dviewer 0 |