puts "============"
puts "OCC23892"
puts "============"
puts ""
######################################################
# Missing intersection curve between two surfaces
######################################################

restore [locate_data_file bug23892_fz33] b1
restore [locate_data_file bug23892_fz46] b2

bop b1 b2
bopsection result

checknbshapes result -vertex 2 -edge 2 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 5
checkview -display result -2d -path ${imagedir}/${test_image}.png