puts "============"
puts "OCC27129"
puts "============"
puts ""
###############################
## BRepLib_CheckCurveOnSurface does not find the maximal distance
###############################

restore [locate_data_file bug27129_e.brep] e

set log1 [checkcurveonsurf e]

vertex v1 33.1645637744 33.5513655177474 0
vertex v2 43.1644823619474 23.5514469302 0
bclearobjects
bcleartools
baddobjects e
baddtools v1 v2
bfillds

bbuild result

set log2 [checkcurveonsurf result]

if { [regexp {Invalid curves on surface:\n} ${log1} full ]} {
  puts "OK. Source shape has invalid curve on surface"
} else {
  puts "Error. checkcurveonsurf command works wrong with source shape"
}

if { [regexp {Invalid curves on surface:\n} ${log1} full ]} {
  puts "OK. Result has invalid curve on surface"
} else {
  puts "Error. checkcurveonsurf command works wrong with result"
}
