diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-11-03 10:42:10 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-11-03 11:00:18 +0100 |
| commit | 73fc334bf8d7bd6d8b83143995844ca0968ceeda (patch) | |
| tree | 0f4e2e31b5e3dd031a2fbd5f078eb741e5b3e931 /tests/Language/GraphQL | |
| parent | 417ff5da7d0db6c8e73a238c17368192a3515a93 (diff) | |
| download | graphql-73fc334bf8d7bd6d8b83143995844ca0968ceeda.tar.gz | |
Move related modules to Language.GraphQL.AST
Fixes #18.
- `Language.GraphQL.Encoder` moved to `Language.GraphQL.AST.Encoder`.
- `Language.GraphQL.Parser` moved to `Language.GraphQL.AST.Parser`.
- `Language.GraphQL.Lexer` moved to `Language.GraphQL.AST.Lexer`.
- All `Language.GraphQL.AST.Value` data constructor prefixes were removed. The
module should be imported qualified.
- All `Language.GraphQL.AST.Core.Value` data constructor prefixes were removed.
The module should be imported qualified.
- `Language.GraphQL.AST.Transform` is now isn't exposed publically anymore.
Diffstat (limited to 'tests/Language/GraphQL')
| -rw-r--r-- | tests/Language/GraphQL/AST/EncoderSpec.hs | 19 | ||||
| -rw-r--r-- | tests/Language/GraphQL/AST/LexerSpec.hs (renamed from tests/Language/GraphQL/LexerSpec.hs) | 4 | ||||
| -rw-r--r-- | tests/Language/GraphQL/AST/ParserSpec.hs (renamed from tests/Language/GraphQL/ParserSpec.hs) | 4 | ||||
| -rw-r--r-- | tests/Language/GraphQL/EncoderSpec.hs | 21 |
4 files changed, 23 insertions, 25 deletions
diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs new file mode 100644 index 0000000..a418a61 --- /dev/null +++ b/tests/Language/GraphQL/AST/EncoderSpec.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE OverloadedStrings #-} +module Language.GraphQL.AST.EncoderSpec + ( spec + ) where + +import Language.GraphQL.AST (Value(..)) +import Language.GraphQL.AST.Encoder +import Test.Hspec ( Spec + , describe + , it + , shouldBe + ) + +spec :: Spec +spec = describe "value" $ do + it "escapes \\" $ + value minified (String "\\") `shouldBe` "\"\\\\\"" + it "escapes quotes" $ + value minified (String "\"") `shouldBe` "\"\\\"\"" diff --git a/tests/Language/GraphQL/LexerSpec.hs b/tests/Language/GraphQL/AST/LexerSpec.hs index 274b29a..b1c280f 100644 --- a/tests/Language/GraphQL/LexerSpec.hs +++ b/tests/Language/GraphQL/AST/LexerSpec.hs @@ -1,12 +1,12 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} -module Language.GraphQL.LexerSpec +module Language.GraphQL.AST.LexerSpec ( spec ) where import Data.Text (Text) import Data.Void (Void) -import Language.GraphQL.Lexer +import Language.GraphQL.AST.Lexer import Test.Hspec (Spec, context, describe, it) import Test.Hspec.Megaparsec (shouldParse, shouldSucceedOn) import Text.Megaparsec (ParseErrorBundle, parse) diff --git a/tests/Language/GraphQL/ParserSpec.hs b/tests/Language/GraphQL/AST/ParserSpec.hs index 9b71c62..8473d73 100644 --- a/tests/Language/GraphQL/ParserSpec.hs +++ b/tests/Language/GraphQL/AST/ParserSpec.hs @@ -1,10 +1,10 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} -module Language.GraphQL.ParserSpec +module Language.GraphQL.AST.ParserSpec ( spec ) where -import Language.GraphQL.Parser (document) +import Language.GraphQL.AST.Parser import Test.Hspec (Spec, describe, it) import Test.Hspec.Megaparsec (shouldSucceedOn) import Text.Megaparsec (parse) diff --git a/tests/Language/GraphQL/EncoderSpec.hs b/tests/Language/GraphQL/EncoderSpec.hs deleted file mode 100644 index d2d4a00..0000000 --- a/tests/Language/GraphQL/EncoderSpec.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Language.GraphQL.EncoderSpec - ( spec - ) where - -import Language.GraphQL.AST ( Value(..)) -import Language.GraphQL.Encoder ( value - , minified - ) -import Test.Hspec ( Spec - , describe - , it - , shouldBe - ) - -spec :: Spec -spec = describe "value" $ do - it "escapes \\" $ - value minified (ValueString "\\") `shouldBe` "\"\\\\\"" - it "escapes quotes" $ - value minified (ValueString "\"") `shouldBe` "\"\\\"\"" |
