1" Tests for the 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" Also tests :earlier and :later. 5 6func Test_undotree() 7 exe "normal Aabc\<Esc>" 8 set ul=100 9 exe "normal Adef\<Esc>" 10 set ul=100 11 undo 12 let d = undotree() 13 call assert_true(d.seq_last > 0) 14 call assert_true(d.seq_cur > 0) 15 call assert_true(d.seq_cur < d.seq_last) 16 call assert_true(len(d.entries) > 0) 17 " TODO: check more members of d 18 19 w! Xtest 20 call assert_equal(d.save_last + 1, undotree().save_last) 21 call delete('Xtest') 22 bwipe Xtest 23endfunc 24 25func FillBuffer() 26 for i in range(1,13) 27 put=i 28 " Set 'undolevels' to split undo. 29 exe "setg ul=" . &g:ul 30 endfor 31endfunc 32 33func Test_global_local_undolevels() 34 new one 35 set undolevels=5 36 call FillBuffer() 37 " will only undo the last 5 changes, end up with 13 - (5 + 1) = 7 lines 38 earlier 10 39 call assert_equal(5, &g:undolevels) 40 call assert_equal(-123456, &l:undolevels) 41 call assert_equal('7', getline('$')) 42 43 new two 44 setlocal undolevels=2 45 call FillBuffer() 46 " will only undo the last 2 changes, end up with 13 - (2 + 1) = 10 lines 47 earlier 10 48 call assert_equal(5, &g:undolevels) 49 call assert_equal(2, &l:undolevels) 50 call assert_equal('10', getline('$')) 51 52 setlocal ul=10 53 call assert_equal(5, &g:undolevels) 54 call assert_equal(10, &l:undolevels) 55 56 " Setting local value in "two" must not change local value in "one" 57 wincmd p 58 call assert_equal(5, &g:undolevels) 59 call assert_equal(-123456, &l:undolevels) 60 61 new three 62 setglobal ul=50 63 call assert_equal(50, &g:undolevels) 64 call assert_equal(-123456, &l:undolevels) 65 66 " Drop created windows 67 set ul& 68 new 69 only! 70endfunc 71 72func BackOne(expected) 73 call feedkeys('g-', 'xt') 74 call assert_equal(a:expected, getline(1)) 75endfunc 76 77func Test_undo_del_chars() 78 " Setup a buffer without creating undo entries 79 new 80 set ul=-1 81 call setline(1, ['123-456']) 82 set ul=100 83 1 84 call test_settime(100) 85 86 " Delete three characters and undo with g- 87 call feedkeys('x', 'xt') 88 call feedkeys('x', 'xt') 89 call feedkeys('x', 'xt') 90 call assert_equal('-456', getline(1)) 91 call BackOne('3-456') 92 call BackOne('23-456') 93 call BackOne('123-456') 94 call assert_fails("BackOne('123-456')") 95 96 :" Delete three other characters and go back in time with g- 97 call feedkeys('$x', 'xt') 98 call feedkeys('x', 'xt') 99 call feedkeys('x', 'xt') 100 call assert_equal('123-', getline(1)) 101 call test_settime(101) 102 103 call BackOne('123-4') 104 call BackOne('123-45') 105 " skips '123-456' because it's older 106 call BackOne('-456') 107 call BackOne('3-456') 108 call BackOne('23-456') 109 call BackOne('123-456') 110 call assert_fails("BackOne('123-456')") 111 normal 10g+ 112 call assert_equal('123-', getline(1)) 113 114 :" Jump two seconds and go some seconds forward and backward 115 call test_settime(103) 116 call feedkeys("Aa\<Esc>", 'xt') 117 call feedkeys("Ab\<Esc>", 'xt') 118 call feedkeys("Ac\<Esc>", 'xt') 119 call assert_equal('123-abc', getline(1)) 120 earlier 1s 121 call assert_equal('123-', getline(1)) 122 earlier 3s 123 call assert_equal('123-456', getline(1)) 124 later 1s 125 call assert_equal('123-', getline(1)) 126 later 1h 127 call assert_equal('123-abc', getline(1)) 128 129 close! 130endfunc 131 132func Test_undojoin() 133 new 134 call feedkeys("Goaaaa\<Esc>", 'xt') 135 call feedkeys("obbbb\<Esc>", 'xt') 136 call assert_equal(['aaaa', 'bbbb'], getline(2, '$')) 137 call feedkeys("u", 'xt') 138 call assert_equal(['aaaa'], getline(2, '$')) 139 call feedkeys("obbbb\<Esc>", 'xt') 140 undojoin 141 " Note: next change must not be as if typed 142 call feedkeys("occcc\<Esc>", 'x') 143 call assert_equal(['aaaa', 'bbbb', 'cccc'], getline(2, '$')) 144 call feedkeys("u", 'xt') 145 call assert_equal(['aaaa'], getline(2, '$')) 146 close! 147endfunc 148 149func Test_undo_write() 150 split Xtest 151 call feedkeys("ione one one\<Esc>", 'xt') 152 w! 153 call feedkeys("otwo\<Esc>", 'xt') 154 call feedkeys("otwo\<Esc>", 'xt') 155 w 156 call feedkeys("othree\<Esc>", 'xt') 157 call assert_equal(['one one one', 'two', 'two', 'three'], getline(1, '$')) 158 earlier 1f 159 call assert_equal(['one one one', 'two', 'two'], getline(1, '$')) 160 earlier 1f 161 call assert_equal(['one one one'], getline(1, '$')) 162 earlier 1f 163 call assert_equal([''], getline(1, '$')) 164 later 1f 165 call assert_equal(['one one one'], getline(1, '$')) 166 later 1f 167 call assert_equal(['one one one', 'two', 'two'], getline(1, '$')) 168 later 1f 169 call assert_equal(['one one one', 'two', 'two', 'three'], getline(1, '$')) 170 171 close! 172 call delete('Xtest') 173 bwipe! Xtest 174endfunc 175 176func Test_insert_expr() 177 new 178 " calling setline() triggers undo sync 179 call feedkeys("oa\<Esc>", 'xt') 180 call feedkeys("ob\<Esc>", 'xt') 181 set ul=100 182 call feedkeys("o1\<Esc>a2\<C-R>=setline('.','1234')\<CR>\<CR>\<Esc>", 'x') 183 call assert_equal(['a', 'b', '120', '34'], getline(2, '$')) 184 call feedkeys("u", 'x') 185 call assert_equal(['a', 'b', '12'], getline(2, '$')) 186 call feedkeys("u", 'x') 187 call assert_equal(['a', 'b'], getline(2, '$')) 188 189 call feedkeys("oc\<Esc>", 'xt') 190 set ul=100 191 call feedkeys("o1\<Esc>a2\<C-R>=setline('.','1234')\<CR>\<CR>\<Esc>", 'x') 192 call assert_equal(['a', 'b', 'c', '120', '34'], getline(2, '$')) 193 call feedkeys("u", 'x') 194 call assert_equal(['a', 'b', 'c', '12'], getline(2, '$')) 195 196 call feedkeys("od\<Esc>", 'xt') 197 set ul=100 198 call feedkeys("o1\<Esc>a2\<C-R>=string(123)\<CR>\<Esc>", 'x') 199 call assert_equal(['a', 'b', 'c', '12', 'd', '12123'], getline(2, '$')) 200 call feedkeys("u", 'x') 201 call assert_equal(['a', 'b', 'c', '12', 'd'], getline(2, '$')) 202 203 close! 204endfunc 205