puts "============"
puts "OCC23998"
puts "============"
puts ""
#######################################################################
# Bad result of intersection of two faces: curve has a loop
#######################################################################

restore [locate_data_file bug23998_m1s.brep] b

explode b

bop b_1 b_2

bopsection result b_1 b_2

checkshape result

checkprops result -l 67.026 
checksection result

# Analysis of "nbshapes res"
checknbshapes result -vertex 1 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 3
checkview -display result -2d -path ${imagedir}/${test_image}.png