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

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 22770-tramp.brep] a
restore [locate_data_file 22770-trans.brep] b

sewing result 0.1 a b
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 22770-tramp.brep] a
	12	restore [locate_data_file 22770-trans.brep] b
	13
	14	sewing result 0.1 a b
	15	checkshape result
	16
	17	foreach e [explode result e] {
	18	if {[validrange $e] == "edge has no valid range"} {
	19	puts "ERROR: Micro edge is produced. Edge $e is too small."
	20	}
	21	}