tests for sub=

gistfile1.clj

(deftest test-sub=
  (are [expected left right] (= expected (sub= left right))
       ;; prim
       true 1 1
       false 1 2
       ;; maps
       true {} {:a 1}
       false {:a 1} {}
       true {:a 1} {:a 1}
       false {:a 1} {:a 2}
       true {:a 1} {:a 1 :b 2}
       ;; nested maps
       true {} {:a {:b 1}}
       false {:a 1} {:b {:c 2}}
       true {:a {:b 1}} {:a {:b 1}}
       true {:a {:b 1}} {:a {:b 1 :c 2}}
       true {:a {}} {:a {:b 1}}
       false {:a {:b 1}} {:a 1}
       false {:a {:b 1}} {:a {:b 2}}
       true {:a {:b 1}} {:a {:b 1 :c 2}}))