empty_qmark,get-in,find,contains_qmark (#89)

* empty_qmark,get-in,find,contains_qmark

* empty_qmark,get-in,find,contains_qmark

Author: rafonsecad

test/clojure/core_test/contains_qmark.cljc

@@ -0,0 +1,23 @@
+(ns clojure.core-test.contains-qmark
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/contains?
+  (deftest test-contains?
+    (testing "common"
+      (is (= false (contains? nil nil)))
+      (is (= false (contains? {} nil)))
+      (is (= false (contains? [] nil)))
+      ;; find by index
+      (is (= true (contains? ["a" "b" "c"] 0)))
+      (is (= false (contains? ["a" "b" "c"] 3)))
+      (is (= true (contains? "abc" 0)))
+      (is (= true (contains? "abc" 2)))
+      (is (= false (contains? "abc" 3)))
+      #?(:cljs (is (= false (contains? "abc" "a")))
+         :clj  (is (thrown? Exception (contains? "abc" "a"))))
+      ;; find by key
+      (is (= true (contains? {:a 1 :b 1} :a)))
+      (is (= false (contains? {:a 1 :b 1} :c)))
+      (is (= true (contains? {:a 1 :b (range)} :a))))))

test/clojure/core_test/empty_qmark.cljc

@@ -0,0 +1,26 @@
+(ns clojure.core-test.empty-qmark
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/empty?
+  (deftest test-empty?
+    (testing "common"
+      (is (= true (empty? nil)))
+      (is (= true (empty? {})))
+      (is (= true (empty? [])))
+      (is (= true (empty? "")))
+      (is (= true (empty? '())))
+      (is (= true (empty? #{})))
+      (is (= false (empty? [\a])))
+      (is (= false (empty? '(nil))))
+      (is (= false (empty? (range))))
+      (is (= false (empty? "abc")))
+      (is (= false (empty? #{0 \space "a"})))
+      (is (= false (empty? [(repeat (range))])))
+      #?@(:cljs [(is (= false (empty? \space)))
+                 (is (thrown? js/Error (empty? 0)))
+                 (is (thrown? js/Error (empty? 0.0)))]
+          :clj  [(is (thrown? Exception (empty? 0)))
+                 (is (thrown? Exception (empty? 0.0)))
+                 (is (thrown? Exception (empty? \space)))]))))

test/clojure/core_test/find.cljc

@@ -0,0 +1,15 @@
+(ns clojure.core-test.find
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/find
+  (deftest test-find
+    (testing "common"
+      (is (= nil (find nil nil)))
+      (is (= nil (find {} nil)))
+      (is (= nil (find [] nil)))
+      (is (= [:a 1] (find {:a 1 :b 2 :c 3} :a)))
+      (is (= [:a 1] (find {:a 1 :b 2 :c (range)} :a)))
+      (is (= nil (find {:a 1 :b 2 :c 3} :d)))
+      (is (= [0 1] (find {0 1 :0 2 "0" 3} 0))))))

test/clojure/core_test/get_in.cljc

@@ -0,0 +1,45 @@
+(ns clojure.core-test.get-in
+  (:require clojure.core
+            [clojure.test :as t :refer [deftest testing is are]]
+            [clojure.core-test.portability #?(:cljs :refer-macros :default :refer)  [when-var-exists]]))
+
+(when-var-exists clojure.core/get-in
+  (deftest test-get-in
+    (testing "common"
+      (is (= nil (get-in nil nil)))
+      (is (= nil (get-in nil nil "not found")))
+      ;; maps
+      (is (= {} (get-in {} nil)))
+      (is (= {} (get-in {} nil "not found")))
+      (is (= {} (get-in {} [])))
+      (is (= {} (get-in {} [] "not found")))
+      (is (= "not found" (get-in {} [nil] "not found")))
+      (is (= \space (get-in {} [:a] \space)))
+      (is (= 0 (get-in {} ["a"] 0)))
+      (is (= 1 (get-in {:a 1} [:a])))
+      (is (= {:a 1} (get-in {:a 1} nil)))
+      (is (= {:a 1} (get-in {:a 1} [])))
+      (is (= {:a 1} (get-in {:a 1} '())))
+      (is (= {:b {:c :d}} (get-in {:a {:b {:c :d}}} [:a])))
+      (is (= {:c :d} (get-in {:a {:b {:c :d}}} [:a :b])))
+      (is (= :d (get-in {:a {:b {:c :d} :e (range)}} [:a :b :c])))
+      (is (= nil (get-in {:a {:b {:c :d}}} [:a :b :c :d])))
+      (is (= :d (get-in {:a {:b {:c :d} :e (range)}} [:a :b :c :d] :d)))
+      ;; vectors
+      (is (= 0 (get-in [[0 1 2]
+                        [3 4 5]
+                        [6 7 8]] [0 0])))
+      (is (= 4 (get-in [[0 1 2]
+                        [3 4 (range)]
+                        [6 7 8]] [1 1])))
+      (is (= 9 (get-in [[0 1 2]
+                        [3 4 5]
+                        [6 7 (range)]] [2 3] 9)))
+      
+      ;; maps and vector mix 
+      (is (= "x" (get-in {:id 1
+                          :matrix [[0 1 2]
+                                   [3 4 {:var "x"}]
+                                   [6 7 8]]}
+                         
+                         [:matrix 1 2 :var] "y"))))))