[occt.git] / tests / bugs / iges / bug28694_2

puts "TODO OCC28694 ALL: ERROR: OCC28694 is reproduced."

puts "========"
puts "OCC28694"
puts "========"
puts ""
###############################################################
# IGES reader produces too small edge covered by its vertices
###############################################################

igesbrep [locate_data_file buc60823.igs] r *

foreach e [explode r e] {
  if {[lsearch [dump $e] degenerated] == -1 && [validrange $e] == "edge has no valid range"} {
    regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
    regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
    puts "ERROR: OCC28694 is reproduced. Edge $e (length=$len, tolerance=$tol) is too small"
  }
}
Commit	Line	Data
9026dea8	1	puts "TODO OCC28694 ALL: ERROR: OCC28694 is reproduced."
	2
	3	puts "========"
	4	puts "OCC28694"
	5	puts "========"
	6	puts ""
	7	###############################################################
	8	# IGES reader produces too small edge covered by its vertices
	9	###############################################################
	10
	11	igesbrep [locate_data_file buc60823.igs] r *
	12
	13	foreach e [explode r e] {
	14	if {[lsearch [dump $e] degenerated] == -1 && [validrange $e] == "edge has no valid range"} {
	15	regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
	16	regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
	17	puts "ERROR: OCC28694 is reproduced. Edge $e (length=$len, tolerance=$tol) is too small"
	18	}
	19	}