puts "============"
puts "OCC26431"
puts "============"
puts ""
###############################
## Can't cut a sphere from a cylinder
###############################

restore [locate_data_file bug26431_Body.brep] b1
restore [locate_data_file bug26431_Sphere.brep] b2

bop b1 b2 
bopcut result

checkshape result

decho off
dlog reset
dlog on

bopargcheck result #F

set info [dlog get]
dlog reset
dlog off
decho on

set MessageList {
"Faulties for FIRST  shape found : 9"
"Shapes are not suppotrted by BOP: NO"
"Self-Intersections              : NO"
"Check for SI has been aborted   : NO"
"Too small edges                 : NO"
"Bad faces                       : NO"
"Too close vertices              : DISABLED"
"Too close edges                 : DISABLED"
"Shapes with Continuity C0       : YES  Cases\\(9\\)  Total shapes\\(9\\)"
"Invalid Curve on Surface        : NO"
"Faulties for SECOND  shape found : 0"
}
for {set i 1} {$i <= 11} {incr i} {
   set str [ lindex ${MessageList} [expr $i - 1] ]
   if { [regexp ${str} ${info}] == 1  } {
      puts "OK : There is #$i message"
   } else {
      puts "Error : There is not #$i message"
      puts $str
   }
}

checkprops result -s 14.4399

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 7
 EDGE      : 20
 WIRE      : 7
 FACE      : 6
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 43
"
checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
checkview -display result -3d -path ${imagedir}/${test_image}.png
