Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug60848
1
2 puts "============"
3 puts "BUC60848"
4 puts "============"
5 puts ""
6
7 pload QAcommands
8
9 restore [locate_data_file BUC60848.brep] a 
10 puts [checkshape a]
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