|
767
|
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
|
|
805
|
33 :sleep 2
|
|
767
|
34 Aa:set ul=100
|
|
|
35 Ab:set ul=100
|
|
|
36 Ac: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
|
|
840
|
46 :"
|
|
|
47 :" test undojoin
|
|
|
48 Goaaaa:set ul=100
|
|
|
49 obbbbu:.w >>test.out
|
|
|
50 obbbb:set ul=100
|
|
|
51 :undojoin
|
|
|
52 occccu:.w >>test.out
|
|
767
|
53 :qa!
|
|
|
54 ENDTEST
|
|
|
55
|
|
|
56 1111 -----
|
|
|
57 2222 -----
|
|
|
58
|
|
|
59 123456789
|
