tests/bugs/modalg_2/bug437

   1 puts "========================"
   2 puts " OCC437 "
   3 puts "========================"
   4 puts ""
   5 ##########################################
   6 ## different checkshape result under ros and rosdeb in KAS:dev.
   7 ##########################################
   8
   9 restore [locate_data_file OCC437.brep] result
  10
  11 set che [checkshape result r]
  12
  13 if { [regexp {OK} $che] != 1 } {
  14     puts " Faulty OCC437: function CHECKSHAPE works wrongly"
  15 } else {
  16     puts " OCC437  OK: function CHECKSHAPE works properly"
  17 }
  18
  19 set square 0.000201234
  20 set 2dviewer 0