Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug160_3
1
2 puts "========================"
3 puts "BUC60775"
4 puts "OCC160"
5 puts "(FUSE: A and B)"
6 puts "========================"
7
8 restore [locate_data_file buc60775a.brep] a 
9 puts [checkshape a]
10 restore [locate_data_file buc60775b.brep] b
11 puts [checkshape b]
12
13 bfuse result a b
14 puts [checkshape result]
15
16 set nf [llength [explode result f]]
17
18 if {$nf < 6} {
19    puts "Error : the resulting shape is unclosed!!!"
20 }
21
22 set check_square 1
23 set square 328116
24 set 2dviewer 0
25
26