tests/bugs/moddata_2/bug324

   1 puts "========================"
   2 puts " OCC324 "
   3 puts "========================"
   4 puts ""
   5 #################################################################
   6 ## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads
   7 ## to the program hang-up.
   8 #################################################################
   9
  10 restore [locate_data_file OCC324a.draw] s1
  11 restore [locate_data_file OCC324b.draw] s2
  12
  13 if [catch {intersect result s1 s2} catch_result] {
  14     puts "Faulty OCC324: function INTERSECT works wrongly"
  15 } else {
  16     puts "OCC324 OK: function INTERSECT works properly"
  17 }
  18
  19 checkview -display result -2d -path ${imagedir}/${test_image}.png
  20
  21