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