puts "TODO OCC28700 ALL: ERROR: Micro edge is produced."

puts "========"
puts "OCC28700"
puts "========"
puts ""
#########################################################################
# BRepBuilderAPI_Sewing produces too small edge covered by its vertices
#########################################################################

restore [locate_data_file OCC22804-sew_bug.brep] a

sewing result 200 a
checkshape result

foreach e [explode result e] {
  if {[validrange $e] == "edge has no valid range"} {
    puts "ERROR: Micro edge is produced. Edge $e is too small."
  }
}
