tests/bugs/moddata_1/bug22165

   1 puts "================"
   2 puts "OCC22165"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # IGES transaltor does not produce any shape
   7 ######################################################################################
   8
   9 set BugNumber OCC22165
  10
  11 catch { pload XDE }
  12
  13 igesbrep [locate_data_file OCC22165-cub_spain.igs] result *
  14
  15 decho off
  16 set Log [data c]
  17 decho on
  18
  19 set LogLength [llength ${Log}]
  20
  21 if { ${LogLength} < 21 } {
  22     puts "Bad format of data-command"
  23     puts "Faulty ${BugNumber}"
  24 } else {
  25     regexp -all {1[ \t]*F: Syntax error in IGES file at line ([-0-9.+eE]+) in section ([A-Z]).} $Log full word1 word2
  26     if { ${word1} != "204" || ${word2} != "P" } {
  27         puts "Faulty ${BugNumber}"
  28     }
  29 }
  30