tests/bugs/caf/buc60847

   1 puts "==========="
   2 puts "BUC60847"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D BinOcaf
   8 UndoLimit D 100
   9
  10 NewCommand D
  11
  12 box Shape 10 20 30
  13
  14 set ResultError [BUC60847 D Shape]
  15 if { ${ResultError} != 0 } {
  16     puts "BUC60847: Error = $ResultError"
  17 }
  18