Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60462_2
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_17"
2 puts "TODO OCC12345 ALL: Faulty : mistakes are found in checked shape by checkshape command"
3 puts "TODO OCC12345 ALL: Error : The square of result shape is"
4
5
6 puts "=========="
7 puts "BUC60462"
8 puts "=========="
9
10 restore [locate_data_file buc60462c.brep] a 
11 puts [checkshape a]
12 restore [locate_data_file buc60462d.brep] b
13 puts [checkshape b]
14 puts "Fuse begin"
15 bfuse result a b
16 puts "Fuse end"
17
18 set che [checkshape result r]
19 if { [regexp {OK} $che] != 1 } {
20     puts "Faulty : mistakes are found in checked shape by checkshape command"
21 } else {
22     puts "Checking by checkshape - OK"
23 }
24
25 set square 0
26 set 2dviewer 0