1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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
|
