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