From e9a94147fb5cf6b871268a373fc211cfa50da2fc Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 22 Sep 2020 04:42:25 +0200
Subject: Validate variables are used

---
 tests/Language/GraphQL/ValidateSpec.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'tests/Language/GraphQL/ValidateSpec.hs')

diff --git a/tests/Language/GraphQL/ValidateSpec.hs b/tests/Language/GraphQL/ValidateSpec.hs
index dc19d95..b93e2a6 100644
--- a/tests/Language/GraphQL/ValidateSpec.hs
+++ b/tests/Language/GraphQL/ValidateSpec.hs
@@ -492,3 +492,19 @@ spec =
                     , locations = [AST.Location 9 46]
                     }
              in validate queryString `shouldBe` Seq.singleton expected
+
+        it "rejects unused variables" $
+            let queryString = [r|
+              query variableUnused($atOtherHomes: Boolean) {
+                dog {
+                  isHousetrained
+                }
+              }
+            |]
+                expected = Error
+                    { message =
+                        "Variable \"$atOtherHomes\" is never used in operation \
+                        \\"variableUnused\"."
+                    , locations = [AST.Location 2 36]
+                    }
+             in validate queryString `shouldBe` Seq.singleton expected
-- 
cgit v1.2.3