puts "=================================================================="
puts "OCC31023: Fillet regression in OCCT 7.4 from 7.3"
puts "=================================================================="
puts ""

brestore [locate_data_file bug31023.brep] a

explode a e

blend result a 0.1 a_25 0.1 a_26

checkshape result

checknbshapes result -face 26 -wire 26 -edge 60 -vertex 34

set tolres [checkmaxtol result]

if { ${tolres} > 0.0001} {
   puts "Error: bad tolerance of result"
}

checkprops result -v 27.1174