From 5939610d8a1614e4a4c356777ae7f7436a78a3d6 Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Sat, 19 Nov 2005 05:18:45 +0000
Subject: [PATCH] New testcase.

---
 lisp/test/test-riece-cache.el | 77 +++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 lisp/test/test-riece-cache.el

diff --git a/lisp/test/test-riece-cache.el b/lisp/test/test-riece-cache.el
new file mode 100644
index 0000000..b378dd3
--- /dev/null
+++ b/lisp/test/test-riece-cache.el
@@ -0,0 +1,77 @@
+(require 'riece-cache)
+
+(luna-define-class test-riece-cache (lunit-test-case))
+
+(luna-define-method test-riece-cache-get-set ((case test-riece-cache))
+  (let ((cache (riece-make-cache 3)))
+    (riece-cache-set cache "0" 0)
+    (lunit-assert-2
+     case
+     (= (riece-cache-get cache "0") 0))))
+
+(luna-define-method test-riece-cache-set-overflow ((case test-riece-cache))
+  (let ((cache (riece-make-cache 3)))
+    (riece-cache-set cache "0" 0)
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache)	1))
+    (riece-cache-set cache "1" 1)
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache)	2))
+    (riece-cache-set cache "2" 2)
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache)	3))
+    (riece-cache-set cache "3" 3)
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache)	3))
+    (lunit-assert-2
+     case
+     (null (riece-cache-get cache "0")))))
+
+(luna-define-method test-riece-cache-get-increase-key ((case test-riece-cache))
+  (let ((cache (riece-make-cache 3)))
+    (riece-cache-set cache "0" 0)
+    (riece-cache-set cache "1" 1)
+    (riece-cache-set cache "2" 2)
+    (lunit-assert-2
+     case
+     (equal (riece-cache-node-key (riece-cache-first cache)) "0"))
+    (lunit-assert-2
+     case
+     (equal (riece-cache-node-key (riece-cache-last cache)) "2"))
+    (riece-cache-get cache "1")
+    (lunit-assert-2
+     case
+     (equal (riece-cache-node-key (riece-cache-last cache)) "1"))))
+
+(luna-define-method test-riece-cache-delete ((case test-riece-cache))
+  (let ((cache (riece-make-cache 3)))
+    (riece-cache-set cache "0" 0)
+    (riece-cache-set cache "1" 1)
+    (riece-cache-set cache "2" 2)
+    (riece-cache-delete cache "1")
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache) 2))
+    (lunit-assert-2
+     case
+     (null (riece-cache-get cache "1")))
+    (riece-cache-set cache "1" 1)
+    (riece-cache-delete cache "0")
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache) 2))
+    (lunit-assert-2
+     case
+     (null (riece-cache-get cache "0")))
+    (riece-cache-set cache "0" 0)
+    (riece-cache-delete cache "2")
+    (lunit-assert-2
+     case
+     (= (riece-cache-hash-length cache) 2))
+    (lunit-assert-2
+     case
+     (null (riece-cache-get cache "2")))))
-- 
2.25.1