puts "============"
puts "OCC27282"
puts "============"
puts ""
###############################
## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
###############################

restore [locate_data_file bug27282_cmpd.brep] a
explode a

bclearobjects
bcleartools
baddobjects a_1
baddtools a_2

bfillds

# CUT-operation
bbop result 2

set log [bopargcheck result #F]

if { [string compare -nocase $log "Shape(s) seem(s) to be valid for BOP.\n"] } {
  puts "ERROR. result is not valid for BOP"
}

checkshape result
checknbshapes result -solid 1 -face 4
checkprops result -v 2.96079e+007

checkview -display result -2d -path ${imagedir}/${test_image}.png
