0e94a94e |
1 | |
2 | puts "============" |
3 | puts "BUC60848" |
4 | puts "============" |
5 | puts "" |
6 | |
7 | pload QAcommands |
8 | |
9 | restore [locate_data_file BUC60848.brep] a |
352ffd73 |
10 | checkshape a |
0e94a94e |
11 | |
12 | tcopy a res |
13 | |
14 | set Flag 0 |
15 | |
16 | set Res [ catch { BUC60848 a } ] |
17 | if { $Res != 0 } { |
18 | invert a |
19 | set Flag 1 |
20 | puts "" |
21 | } |
22 | |
23 | if { $Flag == 1 } { |
24 | set Res [ catch { BUC60848 a } ] |
25 | if { $Res != 0 } { |
26 | set Flag 2 |
27 | } |
28 | puts "" |
29 | } |
30 | |
31 | if { $Flag == 2 } { |
32 | puts "TEST FINISHED. RESULT IS BAD. Faulty" |
33 | puts "" |
34 | } |
35 | |
36 | if { $Flag == 1 } { |
37 | puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED." |
38 | puts "" |
39 | } |
40 | |
41 | if { $Flag == 0 } { |
42 | puts "TEST FINISHED. RESULT IS OK." |
43 | puts "" |
44 | } |
45 | |