src/testdir/test61.in

   1 Tests for undo tree.
   2 Since this script is sourced we need to explicitly break changes up in
   3 undo-able pieces.  Do that by setting 'undolevels'.
   4
   5 STARTTEST
   6 :" Delete three characters and undo
   7 Gx:set ul=100
   8 x:set ul=100
   9 x:.w! test.out
  10 g-:.w >>test.out
  11 g-:.w >>test.out
  12 g-:.w >>test.out
  13 g-:.w >>test.out
  14 :"
  15 :/^111/w >>test.out
  16 :" Delete three other characters and go back in time step by step
  17 $x:set ul=100
  18 x:set ul=100
  19 x:.w >>test.out
  20 :sleep 1
  21 g-:.w >>test.out
  22 g-:.w >>test.out
  23 g-:.w >>test.out
  24 g-:.w >>test.out
  25 g-:.w >>test.out
  26 g-:.w >>test.out
  27 g-:.w >>test.out
  28 g-:.w >>test.out
  29 10g+:.w >>test.out
  30 :"
  31 :/^222/w >>test.out
  32 :" Delay for three seconds and go some seconds forward and backward
  33 :sleep 2
  34 Aa\e:set ul=100
  35 Ab\e:set ul=100
  36 Ac\e:set ul=100
  37 :.w >>test.out
  38 :ear 1s
  39 :.w >>test.out
  40 :ear 3s
  41 :.w >>test.out
  42 :later 1s
  43 :.w >>test.out
  44 :later 1h
  45 :.w >>test.out
  46 :"
  47 :" test undojoin
  48 Goaaaa\e:set ul=100
  49 obbbb\eu:.w >>test.out
  50 obbbb\e:set ul=100
  51 :undojoin
  52 occcc\eu:.w >>test.out
  53 :qa!
  54 ENDTEST
  55
  56 1111 -----
  57 2222 -----
  58
  59 123456789