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 {
      checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3
   }
}

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