* test-elmo-util.el (test-elmo-object-save-1): New testcase.

(lunit-test-case-setup, lunit-test-case-teardown): Add
temporary-file stuff.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 57c3dbd..2c6941f 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,5 +1,9 @@
 2004-02-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * test-elmo-util.el (test-elmo-object-save-1): New testcase.
+       (lunit-test-case-setup, lunit-test-case-teardown): Add
+       temporary-file stuff.
+
        * test-elmo-localdir.el (test-elmo-folder-expand-msgdb-path-4):
        New testcase.
        (test-elmo-folder-expand-msgdb-path-2): Change order.

diff --git a/tests/test-elmo-util.el b/tests/test-elmo-util.el
index 96fe6fc..0bc877e 100644 (file)
--- a/tests/test-elmo-util.el
+++ b/tests/test-elmo-util.el
@@ -1,11 +1,33 @@
 (require 'lunit)
 (require 'elmo-util)
 
+
 (luna-define-class test-elmo-util (lunit-test-case))
 
+;; setup & teardown
+(defvar test-elmo-temoporary-file)
+
+(luna-define-method lunit-test-case-setup ((case test-elmo-util))
+  (setq test-elmo-temoporary-file
+       (make-temp-file temporary-file-directory)))
+
+(luna-define-method lunit-test-case-teardown ((case test-elmo-util))
+  (delete-file test-elmo-temoporary-file))
+
+
 (luna-define-method test-elmo-replace-string-as-filename-1 ((case test-elmo-util))
   (lunit-assert
    (let ((str "/foo//./../bar/"))
      (string= str
              (elmo-recover-string-from-filename
               (elmo-replace-string-as-filename str))))))
+
+
+(luna-define-method test-elmo-object-save-1 ((case test-elmo-util))
+  (let ((list '(1 2 3 4 5 6 7 8 9 10 11 12))
+       (print-length 1)
+       (print-level 1))
+    (elmo-object-save test-elmo-temoporary-file list)
+    (lunit-assert
+     (equal list
+           (elmo-object-load test-elmo-temoporary-file)))))