tests/bugs/fclasses/bug670

   1 # OK: Exception appears and does not kill DRAWEXE (TEST COMPLETED)
   2 puts "TODO ?OCC670 ALL: An exception was caught"
   3 puts "TODO ?OCC670 ALL: \\*\\* Exception \\*\\*"
   4 puts "TODO ?OCC670 ALL: TEST INCOMPLETE"
   5
   6 puts "========"
   7 puts "OCC670"
   8 puts "========"
   9 puts ""
  10 #########################
  11 ## Problem with the Print method.
  12 #########################
  13
  14 pload QAcommands
  15
  16 catch { OCC670 }
  17
  18 puts "OCC670 OK"