tests/bugs/moddata_1/bug22165

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