352ffd73 |
1 | puts "TODO OCC12345 ALL: Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth" |
2 | |
3 | puts "============" |
4 | puts "OCC889" |
5 | puts "============" |
6 | puts "" |
7 | ############################################ |
8 | ## Checkshape founds number of errors on new face. It is not true. |
9 | ############################################ |
10 | restore [locate_data_file OCC889.rle] result |
11 | |
12 | decho off |
13 | set che [checkshape result] |
14 | decho on |
15 | |
16 | if { [ regexp {Faulty} $che ] == 1 } { |
17 | puts "Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth" |
18 | } else { |
19 | puts "OCC889 OK : Checkshape works properly" |
20 | } |
21 | |
22 | set 2dviewer 0 |