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