Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug337
CommitLineData
a87752f3 1
2puts "================"
3puts "OCC337"
4puts "================"
5puts ""
6############################################
7## It's impossible to fuse two solids in the file attached.
8############################################
9
10restore [locate_data_file OCC337_clone1.brep] a
11explode a
12
13set che [checkshape a_1]
14
15if { [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
32set square 35009.9
33set 2dviewer 0
34
35
36
37