Replace tasty and HUnit with Hspec

1 files changed, 153 insertions, 155 deletions

diff --git a/tests/Test/StarWars/QueryTests.hs b/tests/Test/StarWars/QuerySpec.hs
index 3a6ca75..0f6a2ef 100644
--- a/tests/Test/StarWars/QueryTests.hs
+++ b/tests/Test/StarWars/QuerySpec.hs
@@ -1,6 +1,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE QuasiQuotes #-}
-module Test.StarWars.QueryTests (test) where
+module Test.StarWars.QuerySpec
+    ( spec
+    ) where
 
 import qualified Data.Aeson as Aeson
 import Data.Aeson ( object
@@ -10,52 +12,54 @@ import Data.Text (Text)
 import Language.GraphQL
 import Language.GraphQL.Schema (Subs)
 import Text.RawString.QQ (r)
-import Test.Tasty (TestTree, testGroup)
-import Test.Tasty.HUnit ( Assertion
-                        , testCase
-                        , (@?=)
-                        )
+import Test.Hspec.Expectations ( Expectation
+                               , shouldBe
+                               )
+import Test.Hspec ( Spec
+                  , describe
+                  , it
+                  )
 import Test.StarWars.Schema
 
 -- * Test
 -- See https://github.com/graphql/graphql-js/blob/master/src/__tests__/starWarsQueryTests.js
 
-test :: TestTree
-test = testGroup "Star Wars Query Tests"
-  [ testGroup "Basic Queries"
-    [ testCase "R2-D2 hero" . testQuery
+spec :: Spec
+spec = describe "Star Wars Query Tests" $ do
+    describe "Basic Queries" $ do
+      it "R2-D2 hero" $ testQuery
         [r| query HeroNameQuery {
-              hero {
+            hero {
                 id
-              }
+            }
             }
         |]
-      $ object [ "data" .= object ["hero" .= object ["id" .= ("2001" :: Text)]]]
-    , testCase "R2-D2 ID and friends" . testQuery
+        $ object [ "data" .= object ["hero" .= object ["id" .= ("2001" :: Text)]]]
+      it "R2-D2 ID and friends" $ testQuery
         [r| query HeroNameAndFriendsQuery {
-              hero {
+            hero {
                 id
                 name
                 friends {
-                  name
+                name
                 }
-              }
+            }
             }
         |]
-      $ object [ "data" .= object [
-          "hero" .= object [
-              "id" .= ("2001" :: Text)
-            , r2d2Name
-            , "friends" .= [
-                  object [lukeName]
-                , object [hanName]
-                , object [leiaName]
+        $ object [ "data" .= object [
+            "hero" .= object
+                [ "id" .= ("2001" :: Text)
+                , r2d2Name
+                , "friends" .=
+                    [ object [lukeName]
+                    , object [hanName]
+                    , object [leiaName]
+                    ]
                 ]
-            ]
         ]]
-    ]
-  , testGroup "Nested Queries"
-    [ testCase "R2-D2 friends" . testQuery
+
+    describe "Nested Queries" $ do
+      it "R2-D2 friends" $ testQuery
         [r| query NestedQuery {
               hero {
                 name
@@ -69,7 +73,7 @@ test = testGroup "Star Wars Query Tests"
               }
             }
         |]
-      $ object [ "data" .= object [
+        $ object [ "data" .= object [
           "hero" .= object [
               "name" .= ("R2-D2" :: Text)
             , "friends" .= [
@@ -105,101 +109,96 @@ test = testGroup "Star Wars Query Tests"
                 ]
             ]
         ]]
-    , testCase "Luke ID" . testQuery
+      it "Luke ID" $ testQuery
         [r| query FetchLukeQuery {
               human(id: "1000") {
                 name
               }
             }
         |]
-      $ object [ "data" .= object [
-          "human" .= object [lukeName]
-        ]
-    ]]
-    , testCase "Luke ID with variable" . testQueryParams
-         (\v -> if v == "someId"
-                   then Just "1000"
-                   else Nothing)
-         [r| query FetchSomeIDQuery($someId: String!) {
-               human(id: $someId) {
-                 name
-               }
-             }
-         |]
-      $ object [ "data" .= object [
+        $ object [ "data" .= object [
           "human" .= object [lukeName]
         ]]
-    , testCase "Han ID with variable" . testQueryParams
-        (\v -> if v == "someId"
-                  then Just "1002"
-                  else Nothing)
-        [r| query FetchSomeIDQuery($someId: String!) {
-              human(id: $someId) {
-                name
-              }
+
+    it "Luke ID with variable" $ testQueryParams
+      (\v -> if v == "someId" then Just "1000" else Nothing)
+      [r| query FetchSomeIDQuery($someId: String!) {
+            human(id: $someId) {
+              name
             }
-        |]
+          }
+      |]
       $ object [ "data" .= object [
-          "human" .= object [hanName]
-        ]]
-    , testCase "Invalid ID" . testQueryParams
-        (\v -> if v == "id"
-               then Just "Not a valid ID"
-               else Nothing)
-        [r| query humanQuery($id: String!) {
-              human(id: $id) {
-                name
-              }
+        "human" .= object [lukeName]
+      ]]
+    it "Han ID with variable" $ testQueryParams
+      (\v -> if v == "someId" then Just "1002" else Nothing)
+      [r| query FetchSomeIDQuery($someId: String!) {
+            human(id: $someId) {
+              name
             }
-        |] $ object ["data" .= object ["human" .= Aeson.Null]]
-    , testCase "Luke aliased" . testQuery
-        [r| query FetchLukeAliased {
-              luke: human(id: "1000") {
-                name
-              }
+          }
+      |]
+      $ object [ "data" .= object [
+        "human" .= object [hanName]
+      ]]
+    it "Invalid ID" $ testQueryParams
+      (\v -> if v == "id" then Just "Not a valid ID" else Nothing)
+      [r| query humanQuery($id: String!) {
+            human(id: $id) {
+              name
             }
-        |]
+          }
+      |] $ object ["data" .= object ["human" .= Aeson.Null]]
+    it "Luke aliased" $ testQuery
+      [r| query FetchLukeAliased {
+            luke: human(id: "1000") {
+              name
+            }
+          }
+      |]
       $ object [ "data" .= object [
-         "luke" .= object [lukeName]
-        ]]
-    , testCase "R2-D2 ID and friends aliased" . testQuery
-        [r| query HeroNameAndFriendsQuery {
-              hero {
-                id
-                name
-                friends {
-                  friendName: name
-                }
+       "luke" .= object [lukeName]
+      ]]
+    it "R2-D2 ID and friends aliased" $ testQuery
+      [r| query HeroNameAndFriendsQuery {
+            hero {
+              id
+              name
+              friends {
+                friendName: name
               }
             }
-        |]
+          }
+      |]
       $ object [ "data" .= object [
-          "hero" .= object [
-              "id" .= ("2001" :: Text)
-            , r2d2Name
-            , "friends" .= [
-                  object ["friendName" .= ("Luke Skywalker" :: Text)]
-                , object ["friendName" .= ("Han Solo" :: Text)]
-                , object ["friendName" .= ("Leia Organa" :: Text)]
-                ]
-            ]
-        ]]
-    , testCase "Luke and Leia aliased" . testQuery
-        [r| query FetchLukeAndLeiaAliased {
-              luke: human(id: "1000") {
-                name
-              }
-              leia: human(id: "1003") {
-                name
-              }
+        "hero" .= object [
+            "id" .= ("2001" :: Text)
+          , r2d2Name
+          , "friends" .= [
+                object ["friendName" .= ("Luke Skywalker" :: Text)]
+              , object ["friendName" .= ("Han Solo" :: Text)]
+              , object ["friendName" .= ("Leia Organa" :: Text)]
+              ]
+          ]
+      ]]
+    it "Luke and Leia aliased" $ testQuery
+      [r| query FetchLukeAndLeiaAliased {
+            luke: human(id: "1000") {
+              name
             }
-        |]
+            leia: human(id: "1003") {
+              name
+            }
+          }
+      |]
       $ object [ "data" .= object [
-          "luke" .= object [lukeName]
-        , "leia" .= object [leiaName]
-        ]]
-  , testGroup "Fragments for complex queries"
-    [ testCase "Aliases to query for duplicate content" . testQuery
+        "luke" .= object [lukeName]
+      , "leia" .= object [leiaName]
+      ]]
+
+    describe "Fragments for complex queries" $ do
+      it "Aliases to query for duplicate content" $ testQuery
         [r| query DuplicateFields {
               luke: human(id: "1000") {
                 name
@@ -211,11 +210,11 @@ test = testGroup "Star Wars Query Tests"
               }
             }
         |]
-      $ object [ "data" .= object [
+        $ object [ "data" .= object [
           "luke" .= object [lukeName, tatooine]
         , "leia" .= object [leiaName, alderaan]
         ]]
-    ,  testCase "Fragment for duplicate content" . testQuery
+      it "Fragment for duplicate content" $ testQuery
         [r|  query UseFragment {
               luke: human(id: "1000") {
                 ...HumanFragment
@@ -229,13 +228,13 @@ test = testGroup "Star Wars Query Tests"
               homePlanet
             }
         |]
-      $ object [ "data" .= object [
+        $ object [ "data" .= object [
           "luke" .= object [lukeName, tatooine]
         , "leia" .= object [leiaName, alderaan]
         ]]
-    ]
-  , testGroup "__typename"
-    [  testCase "R2D2 is a Droid" . testQuery
+
+    describe "__typename" $ do
+      it "R2D2 is a Droid" $ testQuery
         [r| query CheckTypeOfR2 {
               hero {
                 __typename
@@ -243,10 +242,10 @@ test = testGroup "Star Wars Query Tests"
               }
             }
           |]
-    $ object ["data" .= object [
-        "hero" .= object ["__typename" .= ("Droid" :: Text), r2d2Name]
-      ]]
-    , testCase "Luke is a human" . testQuery
+        $ object ["data" .= object [
+            "hero" .= object ["__typename" .= ("Droid" :: Text), r2d2Name]
+        ]]
+      it "Luke is a human" $ testQuery
         [r| query CheckTypeOfLuke {
               hero(episode: EMPIRE) {
                 __typename
@@ -254,12 +253,12 @@ test = testGroup "Star Wars Query Tests"
               }
             }
           |]
-    $ object ["data" .= object [
-        "hero" .= object ["__typename" .= ("Human" :: Text), lukeName]
-      ]]
-    ]
-    , testGroup "Errors in resolvers"
-      [  testCase "error on secretBackstory" . testQuery
+        $ object ["data" .= object [
+            "hero" .= object ["__typename" .= ("Human" :: Text), lukeName]
+        ]]
+
+    describe "Errors in resolvers" $ do
+        it "error on secretBackstory" $ testQuery
           [r|
             query HeroNameQuery {
               hero {
@@ -280,7 +279,7 @@ test = testGroup "Star Wars Query Tests"
                       ["message" .= ("secretBackstory is secret." :: Text)]
                   ]
               ]
-      , testCase "Error in a list" . testQuery
+        it "Error in a list" $ testQuery
           [r| query HeroNameQuery {
                 hero {
                   name
@@ -291,32 +290,32 @@ test = testGroup "Star Wars Query Tests"
                 }
               }
             |]
-      $ object ["data" .= object
-          [ "hero" .= object
-              [ "name" .= ("R2-D2" :: Text)
-              , "friends" .=
-                  [ object
-                      [ "name" .= ("Luke Skywalker" :: Text)
-                      , "secretBackstory" .= Aeson.Null
-                      ]
-                  , object
-                      [ "name" .= ("Han Solo" :: Text)
-                      , "secretBackstory" .= Aeson.Null
-                      ]
-                  , object
-                      [ "name" .= ("Leia Organa" :: Text)
-                      , "secretBackstory" .= Aeson.Null
-                      ]
-                  ]
-              ]
-          ]
-        , "errors" .=
-            [ object ["message" .= ("secretBackstory is secret." :: Text)]
-            , object ["message" .= ("secretBackstory is secret." :: Text)]
-            , object ["message" .= ("secretBackstory is secret." :: Text)]
+          $ object ["data" .= object
+            [ "hero" .= object
+                [ "name" .= ("R2-D2" :: Text)
+                , "friends" .=
+                    [ object
+                        [ "name" .= ("Luke Skywalker" :: Text)
+                        , "secretBackstory" .= Aeson.Null
+                        ]
+                    , object
+                        [ "name" .= ("Han Solo" :: Text)
+                        , "secretBackstory" .= Aeson.Null
+                        ]
+                    , object
+                        [ "name" .= ("Leia Organa" :: Text)
+                        , "secretBackstory" .= Aeson.Null
+                        ]
+                    ]
+                ]
             ]
-        ]
-      , testCase "error on secretBackstory with alias" . testQuery
+            , "errors" .=
+                [ object ["message" .= ("secretBackstory is secret." :: Text)]
+                , object ["message" .= ("secretBackstory is secret." :: Text)]
+                , object ["message" .= ("secretBackstory is secret." :: Text)]
+                ]
+            ]
+        it "error on secretBackstory with alias" $ testQuery
           [r| query HeroNameQuery {
                 mainHero: hero {
                   name
@@ -335,8 +334,7 @@ test = testGroup "Star Wars Query Tests"
                   [ object ["message" .= ("secretBackstory is secret." :: Text)]
                   ]
               ]
-        ]
-  ]
+
   where
     lukeName = "name" .= ("Luke Skywalker" :: Text)
     leiaName = "name" .= ("Leia Organa" :: Text)
@@ -346,8 +344,8 @@ test = testGroup "Star Wars Query Tests"
     tatooine = "homePlanet" .= ("Tatooine" :: Text)
     alderaan = "homePlanet" .= ("Alderaan" :: Text)
 
-testQuery :: Text -> Aeson.Value -> Assertion
-testQuery q expected = graphql schema q >>= (@?= expected)
+testQuery :: Text -> Aeson.Value -> Expectation
+testQuery q expected = graphql schema q >>= flip shouldBe expected
 
-testQueryParams :: Subs -> Text -> Aeson.Value -> Assertion
-testQueryParams f q expected = graphqlSubs schema f q >>= (@?= expected)
+testQueryParams :: Subs -> Text -> Aeson.Value -> Expectation
+testQueryParams f q expected = graphqlSubs schema f q >>= flip shouldBe expected