| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 1 | func s:test_expand_dllpath(optname) |
| 2 | let $TEST_EXPAND_DLLPATH = '/dllpath/lib' . substitute(a:optname, '\zedll$', '.', '') |
| 3 | execute 'let dllpath_save = &' . a:optname |
| 4 | try |
| 5 | execute 'set ' . a:optname . '=$TEST_EXPAND_DLLPATH' |
| 6 | execute 'call assert_equal("' . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')' |
| 7 | |
| 8 | execute 'set ' . a:optname . '=~' . $TEST_EXPAND_DLLPATH |
| 9 | execute 'call assert_equal("' . $HOME . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')' |
| 10 | finally |
| 11 | execute 'let &' . a:optname . ' = dllpath_save' |
| 12 | let $TEST_EXPAND_DLLPATH = '' |
| 13 | endtry |
| 14 | endfunc |
| 15 | |
| 16 | func s:generate_test_if_exists(optname) |
| Bram Moolenaar | a713ff8 | 2017-02-25 22:18:43 +0100 | [diff] [blame] | 17 | if exists('+' . a:optname) |
| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 18 | execute join([ |
| 19 | \ 'func Test_expand_' . a:optname . '()', |
| 20 | \ ' call s:test_expand_dllpath("' . a:optname . '")', |
| 21 | \ 'endfunc' |
| 22 | \ ], "\n") |
| 23 | endif |
| 24 | endfunc |
| 25 | |
| 26 | call s:generate_test_if_exists('luadll') |
| 27 | call s:generate_test_if_exists('perldll') |
| 28 | call s:generate_test_if_exists('pythondll') |
| 29 | call s:generate_test_if_exists('pythonthreedll') |
| 30 | call s:generate_test_if_exists('rubydll') |
| 31 | call s:generate_test_if_exists('tcldll') |