tests/bugs/iges/bug700

   1 puts "TODO ?OCC12345 ALL: An exception was caught"
   2 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   3 puts "TODO ?OCC12345 ALL: Faulty OCC700"
   4
   5 puts "======="
   6 puts "OCC700"
   7 puts "======="
   8 puts ""
   9 ##########################################################
  10 ## The attached file calnnot be read with OCC4.0, while read successfully with OCC3.0
  11 ##########################################################
  12
  13 set filepath [locate_data_file OCC700.igs]
  14 if [ catch {igesbrep $filepath} res ] {
  15     puts "Faulty OCC700"
  16 } else {
  17     set index [lsearch $res Faulty]
  18     set index1 [lsearch $res error.]
  19     if {$index > -1 || $index1 > -1} {
  20          puts "Faulty OCC700"
  21     } else {
  22           puts "OCC700 OK"
  23     }
  24 }
  25
  26