tests/bugs/modalg_2/bug410_4

   1
   2 puts "========================"
   3 puts " OCC410 "
   4 puts "(case 4)"
   5 puts "========================"
   6 puts ""
   7
   8 restore [locate_data_file f7] b1
   9 checkshape b1
  10
  11 restore [locate_data_file f3] b2
  12 checkshape b2
  13
  14
  15 if [catch {bcut result b2 b1 } res] {
  16     puts "Faulty OCC410: function CUT works wrongly"
  17 } else {
  18     puts " OCC410 OK: function CUT works properly"
  19 }
  20
  21 checkprops result -s 93.6289
  22 checkshape result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png