diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-04-19 13:42:41 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-04-19 13:44:06 +0200 |
| commit | 86352f21d4c2a5a83a85654e403f9fc3ed326cea (patch) | |
| tree | f572c224f63354d95650870c9eaafb534a7bc008 /tests | |
| parent | 7c8a55767f852110e99d5015dc8c72286da3a59b (diff) | |
| download | stylish-haskell-86352f21d4c2a5a83a85654e403f9fc3ed326cea.tar.gz | |
Add support for shebang at start of file
Fixes #86
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 10 |
1 files changed, 10 insertions, 0 deletions
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 ] @@ -59,6 +60,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 isRight _ = False |