tests/bugs/moddata/bug438_1

   1 puts "========"
   2 puts "OCC438"
   3 puts " (case 1)"
   4 puts "========"
   5
   6 ####################################
   7 ## Exception during checking of shape from OCC428
   8 ####################################
   9
  10 restore [locate_data_file OCC428.brep] result
  11
  12 decho off
  13 if [catch { checkshape result } catch_result] {
  14     set mistake 1
  15 } else {
  16     set mistake 0
  17 }
  18 decho on
  19
  20 if { $mistake != 0} {
  21     puts "Faulty OCC438 (case 1): here is checking problem"
  22 } else {
  23     puts "OCC438 (case 1) OK"
  24 }
  25
  26 set 2dviewer 0
  27