tests/bugs/caf/buc60790

   1 puts "==========="
   2 puts "BUC60790"
   3 puts "BUC60836"
   4 puts "==========="
   5
   6 pload QAcommands
   7
   8 NewDocument D BinOcaf
   9 UndoLimit D 100
  10
  11 set ResultError [BUC60836 D]
  12 if {${ResultError} != 0 } {
  13     puts "BUC60790: Error = $ResultError"
  14 }
  15