| Bram Moolenaar | 6d91bcb | 2020-08-12 18:50:36 +0200 | [diff] [blame^] | 1 | " Test for expanding dllpath options |
| 2 | |
| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 3 | func s:test_expand_dllpath(optname) |
| 4 | let $TEST_EXPAND_DLLPATH = '/dllpath/lib' . substitute(a:optname, '\zedll$', '.', '') |
| 5 | execute 'let dllpath_save = &' . a:optname |
| 6 | try |
| 7 | execute 'set ' . a:optname . '=$TEST_EXPAND_DLLPATH' |
| 8 | execute 'call assert_equal("' . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')' |
| 9 | |
| 10 | execute 'set ' . a:optname . '=~' . $TEST_EXPAND_DLLPATH |
| Bram Moolenaar | 5449f7c | 2017-07-30 13:51:37 +0200 | [diff] [blame] | 11 | let home = substitute($HOME, '\\', '/', 'g') |
| 12 | execute 'call assert_equal("' . home . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')' |
| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 13 | finally |
| 14 | execute 'let &' . a:optname . ' = dllpath_save' |
| 15 | let $TEST_EXPAND_DLLPATH = '' |
| 16 | endtry |
| 17 | endfunc |
| 18 | |
| 19 | func s:generate_test_if_exists(optname) |
| Bram Moolenaar | a713ff8 | 2017-02-25 22:18:43 +0100 | [diff] [blame] | 20 | if exists('+' . a:optname) |
| Bram Moolenaar | a6e4250 | 2016-04-20 16:19:52 +0200 | [diff] [blame] | 21 | execute join([ |
| 22 | \ 'func Test_expand_' . a:optname . '()', |
| 23 | \ ' call s:test_expand_dllpath("' . a:optname . '")', |
| 24 | \ 'endfunc' |
| 25 | \ ], "\n") |
| 26 | endif |
| 27 | endfunc |
| 28 | |
| 29 | call s:generate_test_if_exists('luadll') |
| 30 | call s:generate_test_if_exists('perldll') |
| 31 | call s:generate_test_if_exists('pythondll') |
| 32 | call s:generate_test_if_exists('pythonthreedll') |
| 33 | call s:generate_test_if_exists('rubydll') |
| 34 | call s:generate_test_if_exists('tcldll') |
| Bram Moolenaar | 6d91bcb | 2020-08-12 18:50:36 +0200 | [diff] [blame^] | 35 | |
| 36 | " vim: shiftwidth=2 sts=2 expandtab |