tests/bugs/xde/bug12905

   1 puts "============"
   2 puts "OCC12905"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Invalid writing to IGES
   7 #######################################################################
   8
   9 set BugNumber OCC12905
  10
  11 vertex v1 0 0 0
  12 vertex v2 0 0 10
  13 edge e1 v1 v2
  14
  15 set EdgeFile ${imagedir}/${BugNumber}.igs
  16 file delete ${EdgeFile}
  17
  18 set IsOk 1
  19
  20 if {[catch { brepiges e1 ${EdgeFile} } ]} {
  21    set IsOk 0
  22 } else {
  23    if {[catch { igesbrep ${EdgeFile} result * } ]} {
  24       set IsOk 0
  25    } else {
  26       checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 3
  27    }
  28 }
  29
  30 # Resume
  31 puts ""
  32 if { ${IsOk} == 0 } {
  33    puts "Faulty ${BugNumber}"
  34 } else {
  35    puts "OK ${BugNumber}"
  36 }
  37