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 if [ catch {igesbrep [locate_data_file OCC700.igs]} res ] {
  14     puts "Faulty OCC700"
  15 } else {
  16     set index [lsearch $res Faulty]
  17     set index1 [lsearch $res error.]
  18     if {$index > -1 || $index1 > -1} {
  19          puts "Faulty OCC700"
  20     } else {
  21           puts "OCC700 OK"
  22     }
  23 }
  24
  25