From ff388bbcd5374bb76507c2b6af1e1167c8189ea4 Mon Sep 17 00:00:00 2001
From: Kevin Tindall <kevinkjt2000@gmail.com>
Date: Sun, 7 Jan 2018 11:41:06 -0600
Subject: [PATCH] test for ghc options

---
 .../test_haskell_ghc_command_callbacks.vader  | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 test/command_callback/test_haskell_ghc_command_callbacks.vader

diff --git a/test/command_callback/test_haskell_ghc_command_callbacks.vader b/test/command_callback/test_haskell_ghc_command_callbacks.vader
new file mode 100644
index 00000000..edaf2b98
--- /dev/null
+++ b/test/command_callback/test_haskell_ghc_command_callbacks.vader
@@ -0,0 +1,23 @@
+Before:
+  Save g:ale_haskell_ghc_options
+
+  unlet! g:ale_haskell_ghc_options
+  unlet! b:ale_haskell_ghc_options
+
+  runtime ale_linters/haskell/ghc.vim
+
+After:
+  Restore
+  unlet! b:ale_haskell_ghc_options
+  call ale#linter#Reset()
+
+Execute(The options should be used in the command):
+  AssertEqual
+  \ 'ghc -fno-code -v0 %t',
+  \ ale_linters#haskell#ghc#GetCommand(bufnr(''))
+
+  let b:ale_haskell_ghc_options = 'foobar'
+
+  AssertEqual
+  \ 'ghc foobar %t',
+  \ ale_linters#haskell#ghc#GetCommand(bufnr(''))