tests/bugs/modalg_7/bug23902

   1 puts "TODO OCC23902 ALL: Error: Cannot build fillet"
   2
   3 puts "========"
   4 puts "OCC23902"
   5 puts "========"
   6 puts ""
   7 #####################
   8 # Cannot build fillet
   9 #####################
  10
  11 bsplinecurve r 4 3 1 5 2 2 3 5 0 8 0 1 2 8 2 1 4 8 3 1 4 8 3 1 4 8 3 1 6 8 4 1 10 8 10 1
  12
  13 mkedge e1 r
  14 vertex v1 10 8 10
  15 vertex v2 5 8 8
  16 edge e2 v1 v2
  17 vertex v3 0 8 0
  18 edge e3 v2 v3
  19 wire w e1 e2 e3
  20 mkplane f w
  21 prism p f 0 5 0
  22 explode p e
  23
  24 if {![catch {fillet result p 0.5 p_3}]} {
  25   if {[regexp "This shape seems to be valid" [checkshape result] ] != 1} {
  26       puts "Error: Cannot build fillet (1)"
  27   }
  28   if {[regexp "This shape seems to be OK" [bopcheck result] ] != 1} {
  29       puts "Error: Cannot build fillet (2)"
  30   }
  31 } else {
  32   puts "Error: Cannot build fillet (3)"
  33 }