puts "============"
puts "OCC25819"
puts "============"
puts ""
######################################################
# Bad result of BOP cut on valid shapes
######################################################

restore [locate_data_file bug25819_1_BodyA.brep] a
restore [locate_data_file bug25819_1_BodyB.brep] b

bcut result a b

set square 379421

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 20
 EDGE      : 30
 WIRE      : 12
 FACE      : 11
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 76
"
checknbshapes result ${nbshapes_expected} 1 "Result of BOP cut"

set 2dviewer 1