Mercurial > vim
view src/testdir/test_shortpathname.vim @ 16150:b23048205589 v8.1.1080
patch 8.1.1080: when a screendump test fails, moving the file is a hassle
commit https://github.com/vim/vim/commit/ef7f0e367eeaf6fb31b1caa0e3de1a4b07e86af3
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Mar 30 15:59:51 2019 +0100
patch 8.1.1080: when a screendump test fails, moving the file is a hassle
Problem: When a screendump test fails, moving the file is a hassle.
Solution: Instead of appending ".failed" to the file name, keep the same
file name but put the screendump in the "failed" directory.
Then the file name only needs to be typed once when moving a
screendump.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sat, 30 Mar 2019 16:00:06 +0100 |
parents | d9a94be389b5 |
children | f38fcbf343ce |
line wrap: on
line source
" Test for shortpathname ':8' extension. " Only for use on Win32 systems! if !has('win32') finish endif func TestIt(file, bits, expected) let res = fnamemodify(a:file, a:bits) if a:expected != '' call assert_equal(substitute(a:expected, '/', '\\', 'g'), \ substitute(res, '/', '\\', 'g'), \ "'" . a:file . "'->(" . a:bits . ")->'" . res . "'") endif endfunc func Test_ColonEight() let save_dir = getcwd() " This could change for CygWin to //cygdrive/c let dir1 = 'c:/x.x.y' if filereadable(dir1) || isdirectory(dir1) call assert_report("Fatal: '" . dir1 . "' exists, cannot run test") return endif let file1 = dir1 . '/zz.y.txt' let nofile1 = dir1 . '/z.y.txt' let dir2 = dir1 . '/VimIsTheGreatestSinceSlicedBread' let file2 = dir2 . '/z.txt' let nofile2 = dir2 . '/zz.txt' call mkdir(dir1) let resdir1 = substitute(fnamemodify(dir1, ':p:8'), '/$', '', '') call assert_match('\V\^c:/XX\x\x\x\x~1.Y\$', resdir1) let resfile1 = resdir1 . '/ZZY~1.TXT' let resnofile1 = resdir1 . '/z.y.txt' let resdir2 = resdir1 . '/VIMIST~1' let resfile2 = resdir2 . '/z.txt' let resnofile2 = resdir2 . '/zz.txt' call mkdir(dir2) call writefile([], file1) call writefile([], file2) call TestIt(file1, ':p:8', resfile1) call TestIt(nofile1, ':p:8', resnofile1) call TestIt(file2, ':p:8', resfile2) call TestIt(nofile2, ':p:8', resnofile2) call TestIt(nofile2, ':p:8:h', fnamemodify(resnofile2, ':h')) exe 'cd ' . dir1 call TestIt(file1, ':.:8', strpart(resfile1, strlen(resdir1)+1)) call TestIt(nofile1, ':.:8', strpart(resnofile1, strlen(resdir1)+1)) call TestIt(file2, ':.:8', strpart(resfile2, strlen(resdir1)+1)) call TestIt(nofile2, ':.:8', strpart(resnofile2, strlen(resdir1)+1)) let $HOME=dir1 call TestIt(file1, ':~:8', '~' . strpart(resfile1, strlen(resdir1))) call TestIt(nofile1, ':~:8', '~' . strpart(resnofile1, strlen(resdir1))) call TestIt(file2, ':~:8', '~' . strpart(resfile2, strlen(resdir1))) call TestIt(nofile2, ':~:8', '~' . strpart(resnofile2, strlen(resdir1))) cd c:/ call delete(file2) call delete(file1) call delete(dir2, 'd') call delete(dir1, 'd') exe "cd " . save_dir endfunc