tests/bugs/caf/bug261

   1 puts "==========="
   2 puts "OCC261"
   3 puts "==========="
   4
   5 pload QAcommands
   6
   7 NewDocument D MDTV-Standard
   8 UndoLimit D 10
   9 NewCommand D
  10 SetReal D 0:1 10
  11
  12 NewCommand D
  13 SetReal D 0:1 20
  14
  15 NewCommand D
  16 SetReal D 0:1 30
  17
  18 NewCommand D
  19 SetReal D 0:1 40
  20
  21 Undo D
  22 Undo D
  23
  24 OCC261 D
  25
  26 set Res [UndoLimit D]
  27 if { [regexp " 0" $Res] != 1 } {
  28     puts "OCC261: Error"
  29 }
  30
  31