tests/bugs/caf/buc60910

   1 puts "==========="
   2 puts "BUC60910"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D MDTV-Standard
   8 UndoLimit D 100
   9
  10 NewCommand D
  11
  12 set ResultError [BUC60910 D]
  13 if { ${ResultError} != 0 } {
  14     puts "Error : 1"
  15 }
  16
  17 NewCommand D
  18
  19