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       set nb_v_good 2
  27       set nb_e_good 1
  28       set nb_w_good 0
  29       set nb_f_good 0
  30       set nb_sh_good 0
  31       set nb_sol_good 0
  32       set nb_compsol_good 0
  33       set nb_compound_good 0
  34       set nb_shape_good 3
  35    }
  36 }
  37
  38 # Resume
  39 puts ""
  40 if { ${IsOk} == 0 } {
  41    puts "Faulty ${BugNumber}"
  42 } else {
  43    puts "OK ${BugNumber}"
  44 }
  45