occt/tests/bugs/xde/bug12905

puts "============"
puts "OCC12905"
puts "============"
puts ""
#######################################################################
# Invalid writing to IGES
#######################################################################

set BugNumber OCC12905

vertex v1 0 0 0
vertex v2 0 0 10
edge e1 v1 v2

set EdgeFile ${imagedir}/${BugNumber}.igs
file delete ${EdgeFile}

set IsOk 1

if {[catch { brepiges e1 ${EdgeFile} } ]} {
   set IsOk 0
} else {
   if {[catch { igesbrep ${EdgeFile} result * } ]} {
      set IsOk 0
   } else {
      set nb_v_good 2
      set nb_e_good 1
      set nb_w_good 0
      set nb_f_good 0
      set nb_sh_good 0
      set nb_sol_good 0
      set nb_compsol_good 0
      set nb_compound_good 0
      set nb_shape_good 3
   }
}

# Resume
puts ""
if { ${IsOk} == 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}