3 (luna-define-class test-riece-cache (lunit-test-case))
5 (luna-define-method test-riece-cache-get-set ((case test-riece-cache))
6 (let ((cache (riece-make-cache 3)))
7 (riece-cache-set cache "0" 0)
10 (= (riece-cache-get cache "0") 0))))
12 (luna-define-method test-riece-cache-set-overflow ((case test-riece-cache))
13 (let ((cache (riece-make-cache 3)))
14 (riece-cache-set cache "0" 0)
17 (= (riece-cache-hash-length cache) 1))
18 (riece-cache-set cache "1" 1)
21 (= (riece-cache-hash-length cache) 2))
22 (riece-cache-set cache "2" 2)
25 (= (riece-cache-hash-length cache) 3))
26 (riece-cache-set cache "3" 3)
29 (= (riece-cache-hash-length cache) 3))
32 (null (riece-cache-get cache "0")))))
34 (luna-define-method test-riece-cache-get-increase-key ((case test-riece-cache))
35 (let ((cache (riece-make-cache 3)))
36 (riece-cache-set cache "0" 0)
37 (riece-cache-set cache "1" 1)
38 (riece-cache-set cache "2" 2)
41 (equal (riece-cache-node-key (riece-cache-first cache)) "0"))
44 (equal (riece-cache-node-key (riece-cache-last cache)) "2"))
45 (riece-cache-get cache "1")
48 (equal (riece-cache-node-key (riece-cache-last cache)) "1"))))
50 (luna-define-method test-riece-cache-delete ((case test-riece-cache))
51 (let ((cache (riece-make-cache 3)))
52 (riece-cache-set cache "0" 0)
53 (riece-cache-set cache "1" 1)
54 (riece-cache-set cache "2" 2)
55 (riece-cache-delete cache "1")
58 (= (riece-cache-hash-length cache) 2))
61 (null (riece-cache-get cache "1")))
62 (riece-cache-set cache "1" 1)
63 (riece-cache-delete cache "0")
66 (= (riece-cache-hash-length cache) 2))
69 (null (riece-cache-get cache "0")))
70 (riece-cache-set cache "0" 0)
71 (riece-cache-delete cache "2")
74 (= (riece-cache-hash-length cache) 2))
77 (null (riece-cache-get cache "2")))))