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 if [catch { igesbrep [locate_data_file OCC21124.igs] a *} catch_result] {
  12   puts "Error ${BugNumber}: there is reading problem"
  13 } else {
  14   whatis a
  15   explode a
  16   whatis a_91
  17   explode a_91
  18   set l [fromshape a_91_3]
  19   regexp {type : +([-0-9.+eE]+)} $l full type
  20   if { ${type} != 408 } {
  21     puts "Faulty ${BugNumber}"
  22   } else {
  23     puts "OK ${BugNumber}"
  24   }
  25 }
  26 renamevar a_91_3 result
  27 set square 74027
  28 set 2dviewer 0