0028694: IGES reader produces too small edge covered by its vertices
[occt.git] / tests / bugs / iges / bug23622_1
1 puts "============"
2 puts "OCC23622"
3 puts "============"
4 puts ""
5 #######################################################################
6 # IGES import produces invalid shape with parameter read.iges.bspline.continuity=0
7 #######################################################################
8
9 igesbrep [locate_data_file bug23622_seatmotor2.igs] s1 397
10
11 renamevar s1_1 result
12
13 checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 7
14 set tol [tolerance result ]
15 regexp { *Tolerance +MAX=([-0-9.+eE]+)} ${tol} full max_tol
16 puts "max_tol=${max_tol}"
17 if {${max_tol} > 0.02} {
18   puts "Error : Bad tolerance"
19 }
20
21 checkview -display result -3d -path ${imagedir}/${test_image}.png