puts "========"
puts "CR23530"
puts "========"
puts ""
##################################################
## Error in Draw command "checkshape": invalid face is not recognized
##################################################

restore [locate_data_file bug23530_BadFace.brep] result
pcurve result

decho off
set CheckLog [checkshape result]
decho on

if { [regexp "BRepCheck_UnorientableShape" ${CheckLog}] != 1 } {
   puts "CR23530: Error"
}