Skip to content

G
gargantext-ihaskell
Commit 7c242ca4 authored by Andrew Gibiansky's avatar Andrew Gibiansky
Browse files
Options

Adjusting test suite for 7.6.3

parent 9ba5acd5
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 0 deletions
Hspec.hs
View file @ 7c242ca4
...@@ -336,7 +336,11 @@ evalTests = do ...@@ -336,7 +336,11 @@ evalTests = do
it "evaluates directives" $ do it "evaluates directives" $ do
":typ 3" `becomes` ["3 :: forall a. Num a => a"] ":typ 3" `becomes` ["3 :: forall a. Num a => a"]
":k Maybe" `becomes` ["Maybe :: * -> *"] ":k Maybe" `becomes` ["Maybe :: * -> *"]
#if MIN_VERSION_ghc(7, 8, 0)
":in String" `pages` ["type String = [Char] \t-- Defined in \8216GHC.Base\8217"] ":in String" `pages` ["type String = [Char] \t-- Defined in \8216GHC.Base\8217"]
#else
":in String" `pages` ["type String = [Char] \t-- Defined in `GHC.Base'"]
#endif
parserTests = do parserTests = do
layoutChunkerTests layoutChunkerTests
...@@ -500,7 +504,11 @@ parseStringTests = describe "Parser" $ do ...@@ -500,7 +504,11 @@ parseStringTests = describe "Parser" $ do
it "breaks without data kinds" $ it "breaks without data kinds" $
parses "data X = 3" `like` [ parses "data X = 3" `like` [
#if MIN_VERSION_ghc(7, 8, 0)
ParseError (Loc 1 10) "Illegal literal in type (use DataKinds to enable): 3" ParseError (Loc 1 10) "Illegal literal in type (use DataKinds to enable): 3"
#else
ParseError (Loc 1 10) "Illegal literal in type (use -XDataKinds to enable): 3"
#endif
] ]
it "parses statements after imports" $ do it "parses statements after imports" $ do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment