Mercurial > vim
view src/testdir/test_swap.vim @ 14041:8ba288f12675 v8.1.0038
patch 8.1.0038: popup test causes Vim to exit
commit https://github.com/vim/vim/commit/680c99b2efc7e2a9e6b3d611133f43fb7f8c6811
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Jun 7 15:18:41 2018 +0200
patch 8.1.0038: popup test causes Vim to exit
Problem: Popup test causes Vim to exit.
Solution: Disable the broken part of the test for now.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 07 Jun 2018 15:30:07 +0200 |
parents | 4d5a1ada407e |
children | 72d6f6f7ead7 |
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 func Test_swap_group() if !has("unix") return endif let groups = split(system('groups')) if len(groups) <= 1 throw 'Skipped: need at least two groups, got ' . string(groups) endif try call delete('Xtest') split Xtest call setline(1, 'just some text') wq if system('ls -l Xtest') !~ ' ' . groups[0] . ' \d' throw 'Skipped: test file does not have the first group' else silent !chmod 640 Xtest call system('chgrp ' . groups[1] . ' Xtest') if system('ls -l Xtest') !~ ' ' . groups[1] . ' \d' throw 'Skipped: cannot set second group on test file' else split Xtest let swapname = substitute(execute('swapname'), '[[:space:]]', '', 'g') call assert_match('Xtest', swapname) " Group of swapfile must now match original file. call assert_match(' ' . groups[1] . ' \d', system('ls -l ' . swapname)) bwipe! endif endif finally call delete('Xtest') endtry endfunc func Test_missing_dir() call mkdir('Xswapdir') exe 'set directory=' . getcwd() . '/Xswapdir' call assert_equal('', glob('foo')) call assert_equal('', glob('bar')) edit foo/x.txt " This should not give a warning for an existing swap file. split bar/x.txt only set directory& call delete('Xswapdir', 'rf') endfunc