summaryrefslogtreecommitdiff
path: root/test/test_sml_command.vader
diff options
context:
space:
mode:
authorJake Zimmerman <zimmerman.jake@gmail.com>2017-09-03 11:56:14 -0700
committerw0rp <w0rp@users.noreply.github.com>2017-09-03 19:56:14 +0100
commit63e8946fc808c19512454b33d641be1a5fd99ce0 (patch)
treea48101ae352803d9dd1fc7e726ef6ed92e458345 /test/test_sml_command.vader
parentc7fbcb3c02131a4e168290005c1e550b953cb8f4 (diff)
downloadale-63e8946fc808c19512454b33d641be1a5fd99ce0.zip
Detect and use CM files for smlnj (#884)
* Detect and use CM files for smlnj * Split into two checkers - one for CM projects - one for single SML files * Fix some typos * Fix error caught by writing tests We want to actually use `glob` to search in paths upwards from us. (Previously we were just searching in the current directory every time!) * Fix errors from former test run * Write tests for GetCmFile and GetExecutableSmlnj * Typo in 'smlnj/' fixture filenames
Diffstat (limited to 'test/test_sml_command.vader')
-rw-r--r--test/test_sml_command.vader47
1 files changed, 47 insertions, 0 deletions
diff --git a/test/test_sml_command.vader b/test/test_sml_command.vader
new file mode 100644
index 00000000..5ce8a313
--- /dev/null
+++ b/test/test_sml_command.vader
@@ -0,0 +1,47 @@
+Before:
+ runtime ale_linters/sml/sml.vim
+ runtime ale_linters/sml/smlnj.vim
+ call ale#test#SetDirectory('/testplugin/test')
+
+After:
+ call ale#test#RestoreDirectory()
+ call ale#linter#Reset()
+
+# ----- GetCmFile -----
+
+Execute(smlnj finds CM file if it exists):
+ call ale#test#SetFilename('smlnj/cm/foo.sml')
+
+ AssertEqual '/testplugin/test/smlnj/cm/sources.cm', ale#handlers#sml#GetCmFile(bufnr('%'))
+
+Execute(smlnj finds CM file by searching upwards):
+ call ale#test#SetFilename('smlnj/cm/path/to/bar.sml')
+
+ AssertEqual '/testplugin/test/smlnj/cm/sources.cm', ale#handlers#sml#GetCmFile(bufnr('%'))
+
+Execute(smlnj returns '' when no CM file found):
+ call ale#test#SetFilename('smlnj/file/qux.sml')
+
+ AssertEqual '', ale#handlers#sml#GetCmFile(bufnr('%'))
+
+# ----- GetExecutableSmlnjCm & GetExecutableSmlnjFile -----
+
+Execute(CM-project mode enabled when CM file found):
+ call ale#test#SetFilename('smlnj/cm/foo.sml')
+
+ AssertEqual 'sml', ale#handlers#sml#GetExecutableSmlnjCm(bufnr('%'))
+
+Execute(single-file mode disabled when CM file found):
+ call ale#test#SetFilename('smlnj/cm/foo.sml')
+
+ AssertEqual '', ale#handlers#sml#GetExecutableSmlnjFile(bufnr('%'))
+
+Execute(CM-project mode disabled when CM file not found):
+ call ale#test#SetFilename('smlnj/file/qux.sml')
+
+ AssertEqual '', ale#handlers#sml#GetExecutableSmlnjCm(bufnr('%'))
+
+Execute(single-file mode enabled when CM file found):
+ call ale#test#SetFilename('smlnj/file/qux.sml')
+
+ AssertEqual 'sml', ale#handlers#sml#GetExecutableSmlnjFile(bufnr('%'))