Mercurial > vim
view src/testdir/test_stat.vim @ 10922:2cc7e86bdada v8.0.0350
patch 8.0.0350: not enough test coverage for Perl
commit https://github.com/vim/vim/commit/ae177b716626c8d517b7c6c7d77f8b1aec6ba5f9
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Feb 23 13:45:57 2017 +0100
patch 8.0.0350: not enough test coverage for Perl
Problem: Not enough test coverage for Perl.
Solution: Add more Perl tests. (Dominique Perl, closes https://github.com/vim/vim/issues/1500)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 23 Feb 2017 14:00:05 +0100 |
parents | 750779134e67 |
children | 709b898e2119 |
line wrap: on
line source
" Tests for stat functions and checktime func Test_existent_file() let fname = 'Xtest.tmp' let ts = localtime() let fl = ['Hello World!'] call writefile(fl, fname) let tf = getftime(fname) let te = localtime() call assert_true(ts <= tf && tf <= te) call assert_equal(strlen(fl[0] . "\n"), getfsize(fname)) call assert_equal('file', getftype(fname)) call assert_equal('rw-', getfperm(fname)[0:2]) call delete(fname) endfunc func Test_existent_directory() let dname = '.' call assert_equal(0, getfsize(dname)) call assert_equal('dir', getftype(dname)) call assert_equal('rwx', getfperm(dname)[0:2]) endfunc func Test_checktime() let fname = 'Xtest.tmp' let fl = ['Hello World!'] call writefile(fl, fname) set autoread exec 'e' fname " FAT has a granularity of 2 seconds, otherwise it's usually 1 second if has('win32') sleep 2 else sleep 1 endif let fl = readfile(fname) let fl[0] .= ' - checktime' call writefile(fl, fname) checktime call assert_equal(fl[0], getline(1)) call delete(fname) endfunc func Test_nonexistent_file() let fname = 'Xtest.tmp' call delete(fname) call assert_equal(-1, getftime(fname)) call assert_equal(-1, getfsize(fname)) call assert_equal('', getftype(fname)) call assert_equal('', getfperm(fname)) endfunc func Test_win32_symlink_dir() " On Windows, non-admin users cannot create symlinks. " So we use an existing symlink for this test. if has('win32') " Check if 'C:\Users\All Users' is a symlink to a directory. let res = system('dir C:\Users /a') if match(res, '\C<SYMLINKD> *All Users') >= 0 " Get the filetype of the symlink. call assert_equal('dir', getftype('C:\Users\All Users')) endif endif endfunc