From 86352f21d4c2a5a83a85654e403f9fc3ed326cea Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 19 Apr 2015 13:42:41 +0200 Subject: Add support for shebang at start of file Fixes #86 --- tests/Language/Haskell/Stylish/Parse/Tests.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index 718c7f6..d5f3c1d 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -21,6 +21,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "Extra extensions" testExtraExtensions , testCase "Multiline CPP" testMultilineCpp , testCase "Haskell2010 extension" testHaskell2010 + , testCase "Shebang" testShebang ] @@ -58,6 +59,15 @@ testHaskell2010 = assert $ isRight $ parseModule [] Nothing $ unlines ] +-------------------------------------------------------------------------------- +testShebang :: Assertion +testShebang = assert $ isRight $ parseModule [] Nothing $ unlines + [ "#!runhaskell" + , "module Main where" + , "main = return ()" + ] + + -------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True -- cgit v1.2.3