Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug337
1
2 puts "================"
3 puts "OCC337"
4 puts "================"
5 puts ""
6 ############################################
7 ## It's impossible to fuse two solids in the file attached.
8 ############################################
9
10 restore [locate_data_file OCC337_clone1.brep] a 
11 explode a
12
13 set che [checkshape a_1]
14
15 if { [regexp {Faulty} $che ] == 1 } {
16     puts "Faulty OCC337 (shape 1): Source shape is invalid. It was detected by Checkshape command"
17     puts "Body of the script was NOT executed"
18     renamevar a_1 result
19 } else {
20     puts "OCC337 OK (shape 1): Source shape is valid"
21     set che [checkshape a_2]
22     if { [regexp {Faulty} $che ] == 1 } {
23         puts "Faulty OCC337 (shape 2): Source shape is invalid. It was detected by Checkshape command"
24         puts "Body of the script was NOT executed"
25         renamevar a_2 result
26     } else {
27         puts "OCC337 OK (shape 2): Source shape is valid"
28         bfuse result a_1 a_2
29     }
30 }
31
32 set square 35009.9
33 set 2dviewer 0
34
35
36
37