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: \\*\\* Exception"
   5 puts "TODO OCC11111 ALL: An exception was caught"
   6
   7 pload QAcommands
   8
   9 puts "============"
  10 puts "OCC2569"
  11 puts "============"
  12 puts ""
  13 ######################################################
  14 # If it is not possible to create the bezier curve,
  15 # it should throw an exception.
  16 ######################################################
  17 cpulimit 60
  18 vinit
  19
  20 if { [catch {OCC2569 29 result} anException] } {
  21   puts "OCC2569 : OK"
  22 } else {
  23   puts "Error : OCC2569"
  24 }