puts "TODO OCC23902 ALL: Error: Cannot build fillet"

puts "========"
puts "OCC23902"
puts "========"
puts ""
#####################
# Cannot build fillet
#####################

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

mkedge e1 r
vertex v1 10 8 10
vertex v2 5 8 8
edge e2 v1 v2
vertex v3 0 8 0
edge e3 v2 v3
wire w e1 e2 e3
mkplane f w
prism p f 0 5 0
explode p e

if {![catch {fillet result p 0.5 p_3}]} {
  if {[regexp "This shape seems to be valid" [checkshape result] ] != 1} {
      puts "Error: Cannot build fillet (1)"
  }
  if {[regexp "This shape seems to be OK" [bopcheck result] ] != 1} {
      puts "Error: Cannot build fillet (2)"
  }
} else {
  puts "Error: Cannot build fillet (3)"
}
