blob: f4096fef7408c460b28688708054ed67e252841b (
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
|
(require 'kv)
(require 'ert)
(ert-deftest kvhash->alist ()
"Test making alists from hashes."
(should
(equal
(sort
(kvhash->alist
(kvalist->hash '((name1 . value1)
(name2 . value2))))
(lambda (a b)
(string-lessp (symbol-name (car a))
(symbol-name (car b)))))
'((name1 . value1)
(name2 . value2)))))
(ert-deftest kvdotassoc ()
(should
(equal
(dotassoc "a.b.c" '(("a" . (("b" . (("c" . 10)))))))
10)))
(ert-deftest kvdotassq ()
(should
(equal
(dotassq 'a.b.c '((a . ((b . ((c . 10)))))))
10)))
(ert-deftest kvalist->plist ()
"Make alists into plists."
(should
(equal
'(:a1 value1 :a2 value2)
(kvalist->plist '((a1 . value1)(a2 . value2))))))
;;; kv-tests.el ends here
|