Mercurial > vim
view src/testdir/test_swap.vim @ 12750:0b6c09957b43 v8.0.1253
patch 8.0.1253: still too many old style tests
commit https://github.com/vim/vim/commit/430dc5d360166ca5bb6a73f2c87ae53e09282ecb
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Nov 2 21:04:47 2017 +0100
patch 8.0.1253: still too many old style tests
Problem: Still too many old style tests.
Solution: Convert a few more tests to new style. (Yegappan Lakshmanan,
closes #2272)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 02 Nov 2017 21:15:05 +0100 |
parents | |
children | 8984342ab09e |
line wrap: on
line source
" Tests for the swap feature " Tests for 'directory' option. func Test_swap_directory() if !has("unix") return endif let content = ['start of testfile', \ 'line 2 Abcdefghij', \ 'line 3 Abcdefghij', \ 'end of testfile'] call writefile(content, 'Xtest1') " '.', swap file in the same directory as file set dir=.,~ " Verify that the swap file doesn't exist in the current directory call assert_equal([], glob(".Xtest1*.swp", 1, 1, 1)) edit Xtest1 let swfname = split(execute("swapname"))[0] call assert_equal([swfname], glob(swfname, 1, 1, 1)) " './dir', swap file in a directory relative to the file set dir=./Xtest2,.,~ call mkdir("Xtest2") edit Xtest1 call assert_equal([], glob(swfname, 1, 1, 1)) let swfname = "Xtest2/Xtest1.swp" call assert_equal(swfname, split(execute("swapname"))[0]) call assert_equal([swfname], glob("Xtest2/*", 1, 1, 1)) " 'dir', swap file in directory relative to the current dir set dir=Xtest.je,~ call mkdir("Xtest.je") call writefile(content, 'Xtest2/Xtest3') edit Xtest2/Xtest3 call assert_equal(["Xtest2/Xtest3"], glob("Xtest2/*", 1, 1, 1)) let swfname = "Xtest.je/Xtest3.swp" call assert_equal(swfname, split(execute("swapname"))[0]) call assert_equal([swfname], glob("Xtest.je/*", 1, 1, 1)) set dir& call delete("Xtest1") call delete("Xtest2", "rf") call delete("Xtest.je", "rf") endfunc