puts "============"
puts "OCC24646"
puts "============"
puts ""
######################################################
# Wrong result done by Boolean Operation algorithm
######################################################

restore [locate_data_file bug24646_b3.brep] b1
restore [locate_data_file bug24646_b4.brep] b2

bop b1 b2
bopfuse result

set square 3.05204e+06

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 22
 EDGE      : 36
 WIRE      : 17
 FACE      : 14
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 92
"
checknbshapes result ${nbshapes_expected} 1 "Result done by Boolean Operation algorithm"

set 2dviewer 1