blob: 7fe87cc391be678d7f6dc0141d480963e33153a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(ns clojure.contrib.test-contrib.fnmap
(:use clojure.contrib.fnmap
clojure.test))
(deftest acts-like-map
(let [m1 (fnmap get assoc :key1 1 :key2 2)]
(are [k v] (= v (get m1 k))
:key1 1
:key2 2
:nonexistent-key nil)
(are [k v] (= v (k m1))
:key1 1
:key2 2
:nonexistent-key nil)
(let [m2 (assoc m1 :key3 3 :key4 4)]
(are [k v] (= v (get m2 k))
:key1 1
:key2 2
:key3 3
:key4 4
:nonexistent-key nil))))
(defn assoc-validate [m key value]
(if (integer? value)
(assoc m key value)
(throw (Exception. "Only integers allowed in this map!"))))
(deftest validators
(let [m (fnmap get assoc-validate)]
(is (= 2 (:key2 (assoc m :key2 2))))
(is (thrown? Exception (assoc m :key3 3.14)))))
(defn get-transform [m key]
(when-let [value (m key)]
(- value)))
(deftest transforms
(let [m (fnmap get-transform assoc)]
(is (= -2 (:key2 (assoc m :key2 2))))))
|
