tests/bugs/moddata_2/bug2569_1

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC2569"
   5 puts "============"
   6 puts ""
   7 ######################################################
   8 # If it is not possible to create the bezier curve,
   9 # it should throw an exception.
  10 ######################################################
  11 cpulimit 60
  12 vinit
  13 set out [OCC2569 26 result]
  14 if {[string compare $out "\n Degree = 25\n"] == 0} {
  15     puts "OCC2569: OK"
  16 } else {
  17     puts "OCC2569: Faulty"
  18 }
  19
  20 set 3dviewer 0