puts "================"
puts "OCC25844"
puts "================"
puts ""
#######################################################################
# Command "checkshape" does not detect error for case when degenerated edge does not contain geometric representation.
#######################################################################

restore [locate_data_file bug25843_onewire.brep] b

dlog reset
dlog on

checkshape b f

set info [dlog get]
dlog reset
dlog off

if { [regexp "checkshape failure" ${info}] != 1  } {
   puts "Error : Command \"checkshape\" does not detect error for case when degenerated edge does not contain geometric representation."
} else {
   puts "OK : Command \"checkshape\" work good"
}
