X-Git-Url: https://git.madduck.net/etc/vim.git/blobdiff_plain/0ee596c5c5e11fc79598407eaf22f83d279f7e9e..5a4872f466ebd76ddd532bdf2798554421c53df4:/.vim/bundle/ale/test/test_sml_command.vader?ds=sidebyside

diff --git a/.vim/bundle/ale/test/test_sml_command.vader b/.vim/bundle/ale/test/test_sml_command.vader
new file mode 100644
index 00000000..e89486c4
--- /dev/null
+++ b/.vim/bundle/ale/test/test_sml_command.vader
@@ -0,0 +1,45 @@
+Before:
+  call ale#test#SetDirectory('/testplugin/test')
+
+After:
+  call ale#test#RestoreDirectory()
+  call ale#linter#Reset()
+
+Execute(smlnj finds CM file if it exists):
+  call ale#test#SetFilename('test-files/smlnj/cm/foo.sml')
+
+  AssertEqual
+  \ ale#test#GetFilename('test-files/smlnj/cm/sources.cm'),
+  \ ale#handlers#sml#GetCmFile(bufnr('%'))
+
+Execute(smlnj finds CM file by searching upwards):
+  call ale#test#SetFilename('test-files/smlnj/cm/path/to/bar.sml')
+
+  AssertEqual
+  \ ale#test#GetFilename('test-files/smlnj/cm/sources.cm'),
+  \ ale#handlers#sml#GetCmFile(bufnr('%'))
+
+Execute(smlnj returns '' when no CM file found):
+  call ale#test#SetFilename('test-files/smlnj/file/qux.sml')
+
+  AssertEqual '', ale#handlers#sml#GetCmFile(bufnr('%'))
+
+Execute(CM-project mode enabled when CM file found):
+  call ale#test#SetFilename('test-files/smlnj/cm/foo.sml')
+
+  AssertEqual 'sml', ale#handlers#sml#GetExecutableSmlnjCm(bufnr('%'))
+
+Execute(single-file mode disabled when CM file found):
+  call ale#test#SetFilename('test-files/smlnj/cm/foo.sml')
+
+  AssertEqual '', ale#handlers#sml#GetExecutableSmlnjFile(bufnr('%'))
+
+Execute(CM-project mode disabled when CM file not found):
+  call ale#test#SetFilename('test-files/smlnj/file/qux.sml')
+
+  AssertEqual '', ale#handlers#sml#GetExecutableSmlnjCm(bufnr('%'))
+
+Execute(single-file mode enabled when CM file found):
+  call ale#test#SetFilename('test-files/smlnj/file/qux.sml')
+
+  AssertEqual 'sml', ale#handlers#sml#GetExecutableSmlnjFile(bufnr('%'))