| 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 |
| Bram Moolenaar | 5449f7c | 2017-07-30 13:51:37 +0200 | [diff] [blame] | 9 | let home = substitute($HOME, '\\', '/', 'g') |
| 10 | execute 'call assert_equal("' . home . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')' |
| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 11 | finally |
| 12 | execute 'let &' . a:optname . ' = dllpath_save' |
| 13 | let $TEST_EXPAND_DLLPATH = '' |
| 14 | endtry |
| 15 | endfunc |
| 16 | |
| 17 | func s:generate_test_if_exists(optname) |
| Bram Moolenaar | a713ff8 | 2017-02-25 22:18:43 +0100 | [diff] [blame] | 18 | if exists('+' . a:optname) |
| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 19 | execute join([ |
| 20 | \ 'func Test_expand_' . a:optname . '()', |
| 21 | \ ' call s:test_expand_dllpath("' . a:optname . '")', |
| 22 | \ 'endfunc' |
| 23 | \ ], "\n") |
| 24 | endif |
| 25 | endfunc |
| 26 | |
| 27 | call s:generate_test_if_exists('luadll') |
| 28 | call s:generate_test_if_exists('perldll') |
| 29 | call s:generate_test_if_exists('pythondll') |
| 30 | call s:generate_test_if_exists('pythonthreedll') |
| 31 | call s:generate_test_if_exists('rubydll') |
| 32 | call s:generate_test_if_exists('tcldll') |