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