puts "TODO OCC27687 ALL: ERROR: OCC27687 is reproduced."

puts "========"
puts "OCC27687"
puts "========"
puts ""
#########################################################
# Section between shells of hull and deck is not closed
#########################################################

restore [locate_data_file bug27746_first.brep] f
restore [locate_data_file bug27746_second.brep] s

bsection result f s

smallview
clear
display result
fit

set bug_info [string trim [checksection result]]
set bug_info [string trim [string range $bug_info [expr {[string last ":" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
if {$bug_info != 0} {
  puts "ERROR: OCC27687 is reproduced. Section is not closed: Number of alone Vertices: ${bug_info}."
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
