From 1ea5400e8d26c1ebb99912cace5faaffa8c270bf Mon Sep 17 00:00:00 2001 From: w0rp Date: Sun, 3 Sep 2017 23:29:12 +0100 Subject: [PATCH] Test lintr options configuration --- .../test_lintr_command_callback.vader | 34 +++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 test/command_callback/test_lintr_command_callback.vader diff --git a/test/command_callback/test_lintr_command_callback.vader b/test/command_callback/test_lintr_command_callback.vader new file mode 100644 index 0000000..3199b49 --- /dev/null +++ b/test/command_callback/test_lintr_command_callback.vader @@ -0,0 +1,34 @@ +Before: + Save g:ale_r_lintr_options + + unlet! g:ale_r_lintr_options + unlet! b:ale_r_lintr_options + + runtime ale_linters/r/lintr.vim + +After: + Restore + + unlet! b:ale_r_lintr_options + + call ale#linter#Reset() + +Execute(The default lintr command should be correct): + AssertEqual + \ 'cd ' . ale#Escape(getcwd()) . ' && ' + \ . 'Rscript -e ' + \ . ale#Escape('lintr::lint(commandArgs(TRUE)[1], eval(parse(text = commandArgs(TRUE)[2])))') + \ . ' %t ' + \ . ale#Escape('lintr::with_defaults()'), + \ ale_linters#r#lintr#GetCommand(bufnr('')) + +Execute(The lintr options should be configurable): + let b:ale_r_lintr_options = 'lintr::with_defaults(object_usage_linter = NULL)' + + AssertEqual + \ 'cd ' . ale#Escape(getcwd()) . ' && ' + \ . 'Rscript -e ' + \ . ale#Escape('lintr::lint(commandArgs(TRUE)[1], eval(parse(text = commandArgs(TRUE)[2])))') + \ . ' %t ' + \ . ale#Escape('lintr::with_defaults(object_usage_linter = NULL)'), + \ ale_linters#r#lintr#GetCommand(bufnr(''))