tests/bugs/moddata_2/bug935_2

   1
   2 puts "========="
   3 puts " OCC935 "
   4 puts "(case 2)"
   5 puts "========="
   6 puts ""
   7 ###############################
   8 ## instability in checkshape in KAS:dev version.
   9 ###############################
  10
  11 restore [locate_data_file OCC935_2.brep] result
  12
  13 decho off
  14 set err [checkshape result]
  15 decho on
  16
  17 set j 1
  18 repeat 25 {
  19     restore [locate_data_file OCC935_2.brep] result
  20     decho off
  21     set err1 [checkshape result]
  22     decho on
  23     if { $err != $err1 } {
  24         puts [format " Faulty OCC935 (case 2): function CHECKSHAPE works wrongly on %s time" $j]
  25         break
  26     } else {
  27         puts [format " OCC935 (case 2)  OK: function CHECKSHAPE works properly %s time" $j]
  28     }
  29     incr j
  30 }
  31
  32 set 2dviewer 0