From bba381e0ffa443d7e6a17751cb50f477662b890e Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 18 Feb 2004 15:32:03 +0000 Subject: [PATCH] * test-elmo-util.el (test-elmo-object-save-1): New testcase. (lunit-test-case-setup, lunit-test-case-teardown): Add temporary-file stuff. --- tests/ChangeLog | 4 ++++ tests/test-elmo-util.el | 22 ++++++++++++++++++++++ 2 files changed, 26 insertions(+) diff --git a/tests/ChangeLog b/tests/ChangeLog index 57c3dbd..2c6941f 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,5 +1,9 @@ 2004-02-18 TAKAHASHI Kaoru + * 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 --- 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))))) -- 1.7.10.4