From eb90a4091c1f2586640ee49d6f91fc83c05239f6 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 24 May 2020 13:51:00 +0200
Subject: Check point

---
 tests/Language/GraphQL/Type/OutSpec.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/Language/GraphQL/Type/OutSpec.hs

(limited to 'tests/Language/GraphQL/Type')

diff --git a/tests/Language/GraphQL/Type/OutSpec.hs b/tests/Language/GraphQL/Type/OutSpec.hs
new file mode 100644
index 0000000..48b7fa4
--- /dev/null
+++ b/tests/Language/GraphQL/Type/OutSpec.hs
@@ -0,0 +1,15 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Language.GraphQL.Type.OutSpec
+    ( spec
+    ) where
+
+import Data.Functor.Identity (Identity)
+import qualified Language.GraphQL.Type.Out as Out
+import Test.Hspec (Spec, describe, it, shouldBe)
+
+spec :: Spec
+spec =
+    describe "Value" $
+        it "supports overloaded strings" $
+            let string = "Goldstaub abblasen." :: (Out.Value Identity)
+             in string `shouldBe` Out.String "Goldstaub abblasen."
-- 
cgit v1.2.3