tests/bugs/moddata_2/bug308

   1 puts "==========="
   2 puts " OCC308 "
   3 puts "==========="
   4 puts ""
   5 #################################################################
   6 ## Can not project 3D-curve on surface.
   7 #################################################################
   8
   9 restore [locate_data_file OCC308a.draw] a
  10 restore [locate_data_file OCC308b.draw] b
  11
  12 if [catch {project result a b} catch_result] {
  13     set mistake 1
  14 } else {
  15     set mistake 0
  16 }
  17
  18 if { $mistake == 0} {
  19     puts "Faulty OCC308 : function PROJECT works wrongly"
  20 } else {
  21     puts "OCC308 OK : function PROJECT works properly"
  22 }
  23
  24 checkview -display result -2d -path ${imagedir}/${test_image}.png
  25