test_fnamemodify.vim (5159B)
1 " Test filename modifiers. 2 3 func Test_fnamemodify() 4 let save_home = $HOME 5 let save_shell = &shell 6 let save_shellslash = &shellslash 7 let $HOME = fnamemodify('.', ':p:h:h') 8 set shell=sh 9 set shellslash 10 11 call assert_equal('/', fnamemodify('.', ':p')[-1:]) 12 call assert_equal('r', fnamemodify('.', ':p:h')[-1:]) 13 call assert_equal('t', fnamemodify('test.out', ':p')[-1:]) 14 call assert_equal($HOME .. "/foo" , fnamemodify('~/foo', ':p')) 15 call assert_equal(fnamemodify('.', ':p:h:h:h') .. '/', fnamemodify($HOME .. '/../', ':p')) 16 call assert_equal(fnamemodify('.', ':p:h:h:h') .. '/', fnamemodify($HOME .. '/..', ':p')) 17 call assert_equal(fnamemodify('.', ':p:h:h') .. '/', fnamemodify('../', ':p')) 18 call assert_equal(fnamemodify('.', ':p:h:h') .. '/', fnamemodify('..', ':p')) 19 call assert_equal('test.out', fnamemodify('test.out', ':.')) 20 call assert_equal('a', fnamemodify('../testdir/a', ':.')) 21 call assert_equal('~/testdir/test.out', fnamemodify('test.out', ':~')) 22 call assert_equal('~/testdir/a', fnamemodify('../testdir/a', ':~')) 23 call assert_equal('a', '../testdir/a'->fnamemodify(':t')) 24 call assert_equal('', fnamemodify('.', ':p:t')) 25 call assert_equal('test.out', fnamemodify('test.out', ':p:t')) 26 call assert_equal('out', fnamemodify('test.out', ':p:e')) 27 call assert_equal('out', fnamemodify('test.out', ':p:t:e')) 28 call assert_equal('abc.fb2.tar', fnamemodify('abc.fb2.tar.gz', ':r')) 29 call assert_equal('abc.fb2', fnamemodify('abc.fb2.tar.gz', ':r:r')) 30 call assert_equal('abc', fnamemodify('abc.fb2.tar.gz', ':r:r:r')) 31 call assert_equal('testdir/abc.fb2', substitute(fnamemodify('abc.fb2.tar.gz', ':p:r:r'), '.*\(testdir/.*\)', '\1', '')) 32 call assert_equal('gz', fnamemodify('abc.fb2.tar.gz', ':e')) 33 call assert_equal('tar.gz', fnamemodify('abc.fb2.tar.gz', ':e:e')) 34 call assert_equal('fb2.tar.gz', fnamemodify('abc.fb2.tar.gz', ':e:e:e')) 35 call assert_equal('fb2.tar.gz', fnamemodify('abc.fb2.tar.gz', ':e:e:e:e')) 36 call assert_equal('tar', fnamemodify('abc.fb2.tar.gz', ':e:e:r')) 37 call assert_equal(getcwd(), fnamemodify('', ':p:h')) 38 39 let cwd = getcwd() 40 call chdir($HOME) 41 call assert_equal('foobar', fnamemodify('~/foobar', ':~:.')) 42 call chdir(cwd) 43 call mkdir($HOME . '/XXXXXXXX/a', 'p') 44 call mkdir($HOME . '/XXXXXXXX/b', 'p') 45 call chdir($HOME . '/XXXXXXXX/a/') 46 call assert_equal('foo', fnamemodify($HOME . '/XXXXXXXX/a/foo', ':p:~:.')) 47 call assert_equal('~/XXXXXXXX/b/foo', fnamemodify($HOME . '/XXXXXXXX/b/foo', ':p:~:.')) 48 call mkdir($HOME . '/XXXXXXXX/a.ext', 'p') 49 call assert_equal('~/XXXXXXXX/a.ext/foo', fnamemodify($HOME . '/XXXXXXXX/a.ext/foo', ':p:~:.')) 50 call chdir(cwd) 51 call delete($HOME . '/XXXXXXXX', 'rf') 52 53 call assert_equal('''abc def''', fnamemodify('abc def', ':S')) 54 call assert_equal('''abc" "def''', fnamemodify('abc" "def', ':S')) 55 call assert_equal('''abc"%"def''', fnamemodify('abc"%"def', ':S')) 56 call assert_equal('''abc''\'''' ''\''''def''', fnamemodify('abc'' ''def', ':S')) 57 call assert_equal('''abc''\''''%''\''''def''', fnamemodify('abc''%''def', ':S')) 58 sp test_alot.vim 59 call assert_equal(expand('%:r:S'), shellescape(expand('%:r'))) 60 call assert_equal('test_alot,''test_alot'',test_alot.vim', join([expand('%:r'), expand('%:r:S'), expand('%')], ',')) 61 quit 62 63 call assert_equal("'abc\ndef'", fnamemodify("abc\ndef", ':S')) 64 set shell=tcsh 65 call assert_equal("'abc\\\ndef'", fnamemodify("abc\ndef", ':S')) 66 67 let $HOME = save_home 68 let &shell = save_shell 69 let &shellslash = save_shellslash 70 endfunc 71 72 func Test_fnamemodify_er() 73 call assert_equal("with", fnamemodify("path/to/file.with.extensions", ':e:e:r:r')) 74 75 call assert_equal('c', fnamemodify('a.c', ':e')) 76 call assert_equal('c', fnamemodify('a.c', ':e:e')) 77 call assert_equal('c', fnamemodify('a.c', ':e:e:r')) 78 call assert_equal('c', fnamemodify('a.c', ':e:e:r:r')) 79 80 call assert_equal('rb', fnamemodify('a.spec.rb', ':e:r')) 81 call assert_equal('rb', fnamemodify('a.spec.rb', ':e:r')) 82 call assert_equal('spec.rb', fnamemodify('a.spec.rb', ':e:e')) 83 call assert_equal('spec', fnamemodify('a.spec.rb', ':e:e:r')) 84 call assert_equal('spec', fnamemodify('a.spec.rb', ':e:e:r:r')) 85 call assert_equal('spec', fnamemodify('a.b.spec.rb', ':e:e:r')) 86 call assert_equal('b.spec', fnamemodify('a.b.spec.rb', ':e:e:e:r')) 87 call assert_equal('b', fnamemodify('a.b.spec.rb', ':e:e:e:r:r')) 88 89 call assert_equal('spec', fnamemodify('a.b.spec.rb', ':r:e')) 90 call assert_equal('b', fnamemodify('a.b.spec.rb', ':r:r:e')) 91 92 call assert_equal('c', fnamemodify('a.b.c.d.e', ':r:r:e')) 93 call assert_equal('b.c', fnamemodify('a.b.c.d.e', ':r:r:e:e')) 94 95 " :e never includes the whole filename, so "a.b":e:e:e --> "b" 96 call assert_equal('b.c', fnamemodify('a.b.c.d.e', ':r:r:e:e:e')) 97 call assert_equal('b.c', fnamemodify('a.b.c.d.e', ':r:r:e:e:e:e')) 98 99 call assert_equal('', fnamemodify('', ':p:t')) 100 call assert_equal('', fnamemodify(v:_null_string, v:_null_string)) 101 endfunc 102 103 func Test_fnamemodify_fail() 104 call assert_fails('call fnamemodify({}, ":p")', 'E731:') 105 call assert_fails('call fnamemodify("x", {})', 'E731:') 106 endfunc 107 108 " vim: shiftwidth=2 sts=2 expandtab