puts "============"
puts "OCC25043"
puts "============"
puts ""
###############################
## there is no possibility to know what exactly subshape of source shape has detected problems by BRepAlgoAPI_Check
###############################

pload QAcommands
restore [locate_data_file bug25043.brep] a

decho off
set info [OCC25043 a]
decho on

if { [regexp "Faulty shape if found in source shape" ${info}] == 1 } {
    puts "OK : Good result"
} else {
    puts "Error : Wrong result"
}
