puts "============"
puts "CR25109"
puts "============"
puts ""
##########################################################################################################
# Check PolygonOnTriangulation contained in edges
##########################################################################################################

restore [locate_data_file bug25109_e1.brep] b

decho off
set info [checkshape b]
decho on

if { [regexp "This shape seems to be valid" ${info}] == 1 } {
    puts "Error: checkshape is incorrect"
} else {
    puts "OK: checkshape is correct"
}