add tests for nullable and non-nullable variables.

alumbra · May 15, 2017 · c992358 · c992358
1 parent 1d5c319
commit c992358
Showing 1 changed file with 34 additions and 18 deletions.
diff --git a/test/alumbra/canonicalizer_test.clj b/test/alumbra/canonicalizer_test.clj
@@ -105,25 +105,41 @@
               (if variables
                 (analyzer/canonicalize-operation schema ast nil variables)
                 (analyzer/canonicalize-operation schema ast))))]
-    (is (= (canonicalize
-             "{ randomCat(q: {emotions: [HAPPY HAPPIER]}) { name } }")
-           (canonicalize
-             "query ($q: CatQuery!) { randomCat(q: $q) { name } }"
-             {"q" {"emotions" ["HAPPY" "HAPPIER"]}})
-           (canonicalize
-             "query ($q: CatQuery = {emotions: [HAPPY HAPPIER]}) {
+    (testing "default value."
+      (is (= (canonicalize
+               "{ randomCat(q: {emotions: [HAPPY HAPPIER]}) { name } }")
+             (canonicalize
+               "query ($q: CatQuery!) { randomCat(q: $q) { name } }"
+               {"q" {"emotions" ["HAPPY" "HAPPIER"]}})
+             (canonicalize
+               "query ($q: CatQuery = {emotions: [HAPPY HAPPIER]}) {
                 randomCat(q: $q) { name }
-              }")))
-    (is (= (canonicalize
-             "{ randomCat(q: null) { name } }")
-           (canonicalize
-             "query ($q: CatQuery) { randomCat(q: $q) { name } }"
-             {"q" nil})
-           (canonicalize
-             "query ($q: CatQuery = {emotions: [HAPPY HAPPIER]}) {
-              randomCat(q: $q) { name }
-              }"
-             {"q" nil})))))
+                }"))))
+    (testing "explicit null value."
+      (is (= (canonicalize
+               "{ randomCat(q: null) { name } }")
+             (canonicalize
+               "query ($q: CatQuery) { randomCat(q: $q) { name } }"
+               {"q" nil})
+             (canonicalize
+               "query ($q: CatQuery = {emotions: [HAPPY HAPPIER]}) {
+                randomCat(q: $q) { name }
+                }"
+               {"q" nil}))))
+    (testing "nullable variable."
+      (let [query "query ($q: CatQuery) { randomCat(q: $q) { name } }"]
+        (is (= (canonicalize query {})
+               (canonicalize query {"q" nil})))))
+    (testing "non-nullable variable."
+      (let [query "query ($q: CatQuery!) { randomCat(q: $q) { name } }"]
+        (is (thrown-with-msg?
+              IllegalArgumentException
+              #"null value not allowed"
+              (canonicalize query {})))
+        (is (thrown-with-msg?
+              IllegalArgumentException
+              #"null value not allowed"
+              (canonicalize query {"q" nil})))))))
 
 (deftest t-variable-type-mismatch
   (letfn [(canonicalize [query variables]