tests/bugs/xde/bug21124

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