tests/bugs/moddata_2/bug441_3

   1 puts "========================"
   2 puts " OCC441 "
   3 puts "(case 3)"
   4 puts "========================"
   5 puts ""
   6 ###############################
   7 ## Instability of BRepCheck check status.
   8 ###############################
   9
  10 restore [locate_data_file OCC441c.brep] result
  11
  12 set err [checkshape result r]
  13
  14 set j 1
  15 repeat 25 {
  16     restore [locate_data_file OCC441c.brep] result
  17     set err1 [checkshape result r]
  18     if { $err != $err1 } {
  19         puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
  20         break
  21     } else {
  22         puts [format " OCC441  OK: function CHECKSHAPE works properly %s time" $j]
  23     }
  24     incr j
  25 }
  26
  27 set 2dviewer 0