tests/bugs/modalg_1/bug13140

   1 puts "============"
   2 puts "OCC13140"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Exception during creation pipe on from attached spine and profile
   7 #######################################################################
   8
   9 restore [locate_data_file OCC13140_Spine.brep] Spine
  10 restore [locate_data_file OCC13140_Profile.brep] Profile
  11
  12 pipe result Spine Profile
  13
  14 set square 3.48689
  15 set good_vertex 2
  16 set good_edge 3
  17 set good_wire 1
  18 set good_face 1
  19
  20 set explode_v_length  [llength [explode result v] ]
  21 set explode_e_length  [llength [explode result e] ]
  22 set explode_w_length  [llength [explode result w] ]
  23 set explode_f_length  [llength [explode result f] ]
  24
  25 if { ${explode_v_length} != ${good_vertex} } {
  26    puts "vertex: Faulty"
  27 } else {
  28    puts "vertex: OK"
  29 }
  30 if { ${explode_e_length} != ${good_edge} } {
  31    puts "edge: Faulty"
  32 } else {
  33    puts "edge: OK"
  34 }
  35 if { ${explode_w_length} != ${good_wire} } {
  36    puts "wire: Faulty"
  37 } else {
  38    puts "wire: OK"
  39 }
  40 if { ${explode_f_length} != ${good_face} } {
  41    puts "face: Faulty"
  42 } else {
  43    puts "face: OK"
  44 }
  45
  46 set 2dviewer 0
  47