5 ######################################################
6 # Mapping between IGES entinties and result shapes is lost on attached file.
7 ######################################################
11 set filepath [locate_data_file OCC21124.igs]
12 if [catch { igesbrep $filepath a *} catch_result] {
13 puts "Error ${BugNumber}: there is reading problem"
19 set l [fromshape a_91_3]
20 regexp {type : +([-0-9.+eE]+)} $l full type
21 if { ${type} != 408 } {
22 puts "Faulty ${BugNumber}"
24 puts "OK ${BugNumber}"
27 renamevar a_91_3 result
28 checkprops result -s 74027
30 checkview -display result -2d -path ${imagedir}/${test_image}.png