puts "========="
puts "CR23722"
puts "========="
puts ""
###############################
## Exception reaised during intersection between two surfaces
###############################

restore [locate_data_file bug23732_fx1.brep] b1
restore [locate_data_file bug23732_fx2.brep] b2

mksurface s1 b1
mksurface s2 b2

intersect result s1 s2

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