tests/bugs/modalg_2/bug260

   1 #INTERFACE IGES
   2 puts "========"
   3 puts "OCC260"
   4 puts "========"
   5
   6 pload XDE
   7
   8 set filepath [locate_data_file OCC260.igs]
   9 if { [catch { igesbrep $filepath a * } catch_result] } {
  10     puts "OCC260: Error: there is reading problem"
  11 } else {
  12     regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
  13     if {${ShapeNumber} > 0} {
  14         puts "OCC260: OK"
  15     } else {
  16         puts "OCC260: Error"
  17     }
  18 }
  19
  20 checkprops result -l 4.41928
  21 checkshape result
  22 checksection result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png