[#37] Add test for nil map

tolitius · May 11, 2020 · f860f0a · f860f0a
1 parent b91250b
commit f860f0a
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/test/cprop/test/tools.cljc b/test/cprop/test/tools.cljc
@@ -5,10 +5,19 @@
 (deftest contains-in?
   (let [config {:a {:b {:c [{:d 1} 2]}}}]
     (testing "true conditions"
-      (doseq [path [nil [] [:a] [:a :b :c] [:a :b :c 1] [:a :b :c 0 :d]]]
-        (is (true? (sut/contains-in? config path)) path)
-        (is (not= :missing (get-in config path :missing)))))
+      (testing "nil map edge-case"
+        (is (true? (sut/contains-in? nil [])))
+        (is (not= :missing (get-in nil [] :missing)))
+        (is (true? (sut/contains-in? nil nil)))
+        (is (not= :missing (get-in nil nil :missing))))
+      (testing "primary use-cases"
+        (doseq [path [nil [] [:a] [:a :b :c] [:a :b :c 1] [:a :b :c 0 :d]]]
+          (is (true? (sut/contains-in? config path)) path)
+          (is (not= :missing (get-in config path :missing))))))
     (testing "false conditions"
+      (testing "nil map edge-case"
+        (is (false? (sut/contains-in? nil [:a])) "nil path")
+        (is (= :missing (get-in nil [:a] :missing))))
       (doseq [path [[nil] [:a :e] [:a :b :c 69]]]
         (is (false? (sut/contains-in? config path)) path)
         (is (= :missing (get-in config path :missing)))))))