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