puts "TODO OCC12345 ALL: Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth"

puts "============"
puts "OCC889"
puts "============"
puts ""
############################################
## Checkshape founds number of errors on new face. It is not true.
############################################
restore [locate_data_file OCC889.rle] result

decho off
set che [checkshape result]
decho on

if { [ regexp {Faulty} $che ] == 1 } {
    puts "Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth"
} else {
    puts "OCC889 OK : Checkshape works properly"
}

set 2dviewer 0