tests/bugs/moddata_2/bug2569_2

   1 # Incompleted behavior of test case is OK.
   2 # Exception should be thrown.
   3
   4 puts "TODO OCC11111 ALL: An exception was caught"
   5
   6 pload QAcommands
   7
   8 puts "============"
   9 puts "0002569: If it is not possible to create the bezier curve, it should throw an e x c e p t i o n."
  10 puts "============"
  11 puts ""
  12
  13 cpulimit 60
  14 vinit
  15
  16 if { [catch {OCC2569 29 result} anException] } {
  17   puts "OCC2569 : OK"
  18 } else {
  19   puts "Error : OCC2569"
  20 }