puts "##################################################"
puts "0026627: Shape Healing hangs as of OCC 6.8.0"
puts "##################################################"

# load and check shape
restore [locate_data_file bug26627_fixed.brep] a
tolerance a
checkshape a

# call fixshape -- it should finish in fraction of second
cpulimit 10
fixshape result a 1e-6

# result should have positive volume
if { [regexp {Mass\s*:\s*([0-9.e+-]*)} [vprops result] dummy volume] } {
  checkreal "Volume of the solid" $volume 4332.63 0.1 0.
} else {
  puts "Error: cannot get volume of result!"
}