puts "========"
puts "OCC28786"
puts "========"
puts ""
########################################
# Refactoring of the Warning/Error reporting system of Boolean Operations Algorithm
########################################

vertex v 0 0 0
vertex v1 1.e-5 0 0
settolerance v1 1.e-5
vertex v2 0 1.e-5 0
edge a v v1
edge b v v2

bclearobjects
bcleartools
baddobjects a
baddtools b

if {![regexp "Warning" [bfillds]]} {
  puts "Error: WarningStatus has not been set"
}

bbuild result
checkshape result
checknbshapes result -edge 2