tests/bugs/caf/buc60831

   1 puts "==========="
   2 puts "BUC60831"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D BinOcaf
   8 UndoLimit D 100
   9
  10 NewCommand D
  11
  12 set L 0:3
  13 Label D $L
  14
  15 set Status 0
  16
  17 set Result [BUC60831_1 D]
  18 if { ${Result} != 0 } {
  19     puts "BUC60831: Error 1"
  20     set Status 1
  21 }
  22
  23 NewCommand D
  24
  25 set Result [BUC60831_2 D $L]
  26 if { ${Result} != 0 } {
  27     puts "BUC60831: Error 2"
  28     set Status 1
  29 }
  30
  31 set Result [BUC60831_1 D]
  32 if { ${Result} != 1 } {
  33     puts "BUC60831: Error 3"
  34     set Status 1
  35 }
  36
  37 NewCommand D
  38
  39 Undo D
  40
  41 set Result [BUC60831_1 D]
  42 if { ${Result} != 0 } {
  43     puts "BUC60831: Error 4"
  44     set Status 1
  45 }
  46
  47 if { ${Status} != 0} then {
  48  puts "BUC60831: Error"
  49 }
  50