diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index d5f3c1d..87c0a51 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -1,4 +1,3 @@ --------------------------------------------------------------------------------- module Language.Haskell.Stylish.Parse.Tests ( tests ) where @@ -22,8 +21,19 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "Multiline CPP" testMultilineCpp , testCase "Haskell2010 extension" testHaskell2010 , testCase "Shebang" testShebang + , testCase "ShebangExt" testShebangExt ] +-------------------------------------------------------------------------------- +testShebangExt :: Assertion +testShebangExt = assert $ isRight $ parseModule [] Nothing input + where + input = unlines + [ "#!env runghc" + , "{-# LANGUAGE CPP #-}" + , "#define foo bar \\" + , " qux" + ] -------------------------------------------------------------------------------- testBom :: Assertion |