| Bram Moolenaar | 9d47f17 | 2006-03-15 23:03:01 +0000 | [diff] [blame^] | 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: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 |
| 46 | :qa! |
| 47 | ENDTEST |
| 48 | |
| 49 | 1111 ----- |
| 50 | 2222 ----- |
| 51 | |
| 52 | 123456789 |