| Bram Moolenaar | c525e3a | 2017-02-18 16:59:02 +0100 | [diff] [blame] | 1 | " Test :recover |
| 2 | |
| 3 | func Test_recover_root_dir() |
| 4 | " This used to access invalid memory. |
| 5 | split Xtest |
| 6 | set dir=/ |
| 7 | call assert_fails('recover', 'E305:') |
| 8 | close! |
| 9 | |
| Bram Moolenaar | 2a0b06d | 2017-05-18 16:23:43 +0200 | [diff] [blame] | 10 | if has('win32') || filewritable('/') == 2 |
| Bram Moolenaar | 8034520 | 2017-02-18 22:43:19 +0100 | [diff] [blame] | 11 | " can write in / directory on MS-Windows |
| 12 | set dir=/notexist/ |
| 13 | endif |
| Bram Moolenaar | c525e3a | 2017-02-18 16:59:02 +0100 | [diff] [blame] | 14 | call assert_fails('split Xtest', 'E303:') |
| 15 | set dir& |
| 16 | endfunc |
| 17 | |
| Bram Moolenaar | 4a6fcf8 | 2017-10-12 21:29:22 +0200 | [diff] [blame] | 18 | " Inserts 10000 lines with text to fill the swap file with two levels of pointer |
| 19 | " blocks. Then recovers from the swap file and checks all text is restored. |
| 20 | " |
| 21 | " We need about 10000 lines of 100 characters to get two levels of pointer |
| 22 | " blocks. |
| 23 | func Test_swap_file() |
| Bram Moolenaar | 67418d9 | 2017-10-15 22:07:39 +0200 | [diff] [blame] | 24 | set fileformat=unix undolevels=-1 |
| Bram Moolenaar | 4a6fcf8 | 2017-10-12 21:29:22 +0200 | [diff] [blame] | 25 | edit! Xtest |
| 26 | let text = "\tabcdefghijklmnoparstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnoparstuvwxyz0123456789" |
| 27 | let i = 1 |
| 28 | let linecount = 10000 |
| 29 | while i <= linecount |
| 30 | call append(i - 1, i . text) |
| 31 | let i += 1 |
| 32 | endwhile |
| 33 | $delete |
| 34 | preserve |
| 35 | " get the name of the swap file |
| 36 | let swname = split(execute("swapname"))[0] |
| 37 | let swname = substitute(swname, '[[:blank:][:cntrl:]]*\(.\{-}\)[[:blank:][:cntrl:]]*$', '\1', '') |
| 38 | " make a copy of the swap file in Xswap |
| 39 | set binary |
| 40 | exe 'sp ' . swname |
| 41 | w! Xswap |
| 42 | set nobinary |
| 43 | new |
| 44 | only! |
| 45 | bwipe! Xtest |
| 46 | call rename('Xswap', swname) |
| 47 | recover Xtest |
| 48 | call delete(swname) |
| 49 | let linedollar = line('$') |
| 50 | call assert_equal(linecount, linedollar) |
| 51 | if linedollar < linecount |
| 52 | let linecount = linedollar |
| 53 | endif |
| 54 | let i = 1 |
| 55 | while i <= linecount |
| 56 | call assert_equal(i . text, getline(i)) |
| 57 | let i += 1 |
| 58 | endwhile |
| 59 | |
| 60 | set undolevels& |
| 61 | enew! | only |
| 62 | endfunc |