puts "================"
puts "OCC25407"
puts "================"
puts ""
#######################################################################
# Exception in extrema operation.
#######################################################################

restore [locate_data_file bug25407_e2.brep] e
restore [locate_data_file bug25407_f2.brep] f

mkcurve c e
mksurface s f

extrema c s

if { [isdraw ext_1] } {
   mkedge result ext_1
   checkprops result -l 1.88322e-11
   checksection result
} else {
   puts "Error: invalid result"
}

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