puts "========================"
puts "OCC22303"
puts "========================"
puts ""
#######################################################################
# The algorithm BRepExtrema_DistShapeShape crashes with exception if one of the shapes does non contain vertices
#######################################################################

set BugNumber OCC22303

line ll 0 20 0  1 0 0
mkedge ee ll
psphere ss 10

distmini dd ee ss
puts "Distance=[dval dd_val]"

if [expr [dval dd_val] - 10. > 1.e-3 ] {
   set status 1
} else {
   set status 0
}

# Resume
puts ""
if { ${status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}