tests/bugs/moddata_2/bug515

   1 puts "========"
   2 puts "OCC515"
   3 puts "========"
   4 puts ""
   5 ################################
   6 ## Wrong projection of the Line on the Cone
   7 ################################
   8
   9 restore [locate_data_file OCC515a.draw] cx
  10 restore [locate_data_file OCC515b.draw] s
  11
  12 if { [catch {project c2d cx s -t 0.0015} ] } {
  13     puts "OCC515 FAULTY"
  14 }  else {
  15     # create dump of resulting curve
  16     set dump [dump c2d]
  17     # read dump of old curve
  18     set olddump [read [open [locate_data_file OCC515_DUMP]]]
  19     # if the dumps are equal this bug still exists
  20     if { $dump == $olddump } {
  21         puts "OCC515 FAULTY"
  22     } else {
  23         puts "OCC515 WARNING: Dumps of old and new curve are different, probably bug still exists"
  24     }
  25 }
  26
  27