[occt.git] / tests / bugs / modalg_7 / bug28700_1

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 OCC714.brep] a

sewing result 0.1 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."
  }
}
Commit	Line	Data
9026dea8	1	puts "TODO OCC28700 ALL: ERROR: Micro edge is produced."
	2
	3	puts "========"
	4	puts "OCC28700"
	5	puts "========"
	6	puts ""
	7	#########################################################################
	8	# BRepBuilderAPI_Sewing produces too small edge covered by its vertices
	9	#########################################################################
	10
	11	restore [locate_data_file OCC714.brep] a
	12
	13	sewing result 0.1 a
	14	checkshape result
	15
	16	foreach e [explode result e] {
	17	if {[validrange $e] == "edge has no valid range"} {
	18	puts "ERROR: Micro edge is produced. Edge $e is too small."
	19	}
	20	}