Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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}}))
Add Comment
Please, Sign In to add comment