tests/bugs/heal/bug24008_2

   1 puts "========"
   2 puts "OCC24008"
   3 puts "========"
   4 puts ""
   5 #################################################################
   6 # ShapeAnalysis_Surface causes exception in Geom_OffsetSurface
   7 #################################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file bug24008_curv_rbp.draw] a
  12 restore [locate_data_file bug24008_surf_rbls.draw] b
  13
  14 set info [OCC24008 a b]
  15 if { [regexp "Exception" $info] != 0 } {
  16     puts "Error : Exception was caught"
  17 } else {
  18     puts "OK: COmmand wrong propery"
  19 }
  20