From 764a33b1c9dc355f779366762db1645eda478ee4 Mon Sep 17 00:00:00 2001 From: w0rp Date: Mon, 13 Nov 2017 22:47:19 +0000 Subject: Fix #1124 - Handle stack-build errors with leading spaces --- test/handler/test_ghc_handler.vader | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'test/handler') diff --git a/test/handler/test_ghc_handler.vader b/test/handler/test_ghc_handler.vader index b76046ca..b47cdf67 100644 --- a/test/handler/test_ghc_handler.vader +++ b/test/handler/test_ghc_handler.vader @@ -76,3 +76,25 @@ Execute(The ghc handler should handle ghc 7 output): \ ale#path#Winify('src/Main.hs') . ':94:5:Error:', \ ' Some other error', \ ]) + +Execute(The ghc handler should handle stack 1.5.1 output): + call ale#test#SetFilename('src/Main.hs') + + AssertEqual + \ [ + \ { + \ 'lnum': 160, + \ 'col': 14, + \ 'type': 'E', + \ 'text': '• Expecting one fewer arguments to ‘Exp’ Expected kind ‘k0 -> *’, but ‘Exp’ has kind ‘*’ • In the type ‘Exp a’ | 160 | pattern F :: Exp a | ^^^^^', + \ }, + \ ], + \ ale#handlers#haskell#HandleGHCFormat(bufnr(''), [ + \ ' ' . ale#path#Winify('src/Main.hs') . ':160:14: error:', + \ ' • Expecting one fewer arguments to ‘Exp’', + \ ' Expected kind ‘k0 -> *’, but ‘Exp’ has kind ‘*’', + \ ' • In the type ‘Exp a’', + \ ' |', + \ ' 160 | pattern F :: Exp a', + \ ' | ^^^^^', + \ ]) -- cgit v1.2.3