tests/bugs/moddata_2/bug889

   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