puts "========================"
puts "BUC60825"
puts "========================"

pload QAcommands

line aLine 0 0 0 0 0 1
mkedge aEdge1 aLine
restore [locate_data_file buc60825.brep] aEdge2 
checkshape aEdge2

distmini d aEdge1 aEdge2
regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext
if { $ext != 1 } {
    puts "Error : The extrema has not been calculated."
}