tests/bugs/caf/buc60813

   1 puts "==========="
   2 puts "BUC60813"
   3 puts "==========="
   4
   5 NewDocument D BinOcaf
   6 UndoLimit D 100
   7
   8 NewCommand D
   9
  10 Label D 0:1
  11
  12 SetName D 0:1 SourceLabel
  13 SetReal D 0:1 3.1415
  14
  15 set Result [CopyLabel D 0:1 0:2]
  16 if { ${Result} == 0} {
  17     puts "BUC60813: Error 1"
  18 } else {
  19     set Name [GetName D 0:2]
  20     if { [string length ${Name}] == 0 } {
  21         puts "BUC60813: Error 2"
  22     } else {
  23         set Result [CopyLabel D 0:2 0:3]
  24         if { ${Result} == 0 } {
  25             puts "BUC60813: Error 3"
  26         } else {
  27             puts "BUC60813: OK"
  28         }
  29     }
  30 }