tests/bugs/iges/bug25843_iges

   1 puts "============"
   2 puts "OCC25843"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Wire containing degenerated edge is not written to IGES / STEP
   7 #######################################################################
   8
   9 restore [locate_data_file bug25843_onewire.brep] w
  10
  11 set aFile ${imagedir}/bug25843_onewire.igs
  12
  13 file delete ${aFile}
  14
  15 brepiges w ${aFile}
  16
  17 if { ![file exists ${aFile}] } {
  18    puts "Error: Wire containing degenerated edge is not written to IGES file"
  19 } else {
  20    puts "OK: Wire containing degenerated edge is written to IGES file"
  21 }
  22
  23 catch {exec chmod 777 ${aFile}}