puts "========"
puts "OCC27746"
puts "========"
puts ""
#################################################
# Incomplete result of SECTION operation
#################################################

restore [locate_data_file bug27746_first.brep] b1
restore [locate_data_file bug27746_second.brep] b2

settolerance b2 1.e-7
fixshape b2 b2

bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbop result 4

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
if { $nbv > 6 } { puts "Error : Section is incorrect" }

checkprops result -l 88.2082