eee615ad |
1 | puts "============" |
2 | puts "OCC27282" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug27282_cmpd.brep] a |
10 | explode a |
11 | |
12 | bclearobjects |
13 | bcleartools |
14 | baddobjects a_1 |
15 | baddtools a_2 |
16 | |
17 | bfillds |
18 | |
19 | # CUT-operation |
20 | bbop result 2 |
21 | |
22 | set log [bopargcheck result #F] |
23 | |
24 | if { [string compare -nocase $log "Shape(s) seem(s) to be valid for BOP.\n"] } { |
25 | puts "ERROR. result is not valid for BOP" |
26 | } |
27 | |
28 | checkshape result |
29 | checknbshapes result -solid 1 -face 4 |
30 | checkprops result -v 2.96079e+007 |
31 | |
32 | checkview -display result -2d -path ${imagedir}/${test_image}.png |