tests/bugs/moddata_2/bug284

   1 puts "========"
   2 puts "OCC284"
   3 puts "========"
   4
   5 #########################################################
   6 ## Command "checkshape" "gives" exception during attempt to check attached shape.
   7 #########################################################
   8
   9 restore [locate_data_file OCC284.brep] result
  10
  11 decho off
  12 if [catch { checkshape result } catch_result] {
  13     set mistake 1
  14 } else {
  15     set mistake 0
  16 }
  17 decho on
  18
  19 if { $mistake != 0} {
  20   puts "Faulty OCC284 : here is problem in checkshape function"
  21 } else {
  22   puts "OCC284  OK: function checkshape works properly"
  23 }
  24
  25 set 2dviewer 0
  26