From 8e005cd185360f18846c1922eebbe518ebc4d27d Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 28 Aug 2001 16:18:34 +0000 Subject: [PATCH] * test-wl-util.el: New file. (test-wl-parse-addresses-1, test-wl-unique-id): New testcases. --- tests/ChangeLog | 5 ++++- tests/test-wl-util.el | 18 ++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) create mode 100644 tests/test-wl-util.el diff --git a/tests/ChangeLog b/tests/ChangeLog index a59d43f..8206d10 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,6 +1,9 @@ 2001-08-28 TAKAHASHI Kaoru - * test-elmo-util.el: New file + * test-wl-util.el: New file. + (test-wl-parse-addresses-1, test-wl-unique-id): New testcases. + + * test-elmo-util.el: New file. (test-elmo-replace-string-as-filename-1): New testcase. * test-dist.el: New file. diff --git a/tests/test-wl-util.el b/tests/test-wl-util.el new file mode 100644 index 0000000..e8d8389 --- /dev/null +++ b/tests/test-wl-util.el @@ -0,0 +1,18 @@ +(require 'lunit) +(require 'wl-util) + +(luna-define-class test-wl-util (lunit-test-case)) + +(luna-define-method test-wl-parse-addresses-1 ((case test-wl-util)) + (lunit-assert + (equal + '("foo@example.com" "bar@example.com") + (wl-parse-addresses "foo@example.com, bar@example.com")))) + + +;; Message-ID +(luna-define-method test-wl-unique-id ((case test-wl-util)) + (lunit-assert + (not + (string= (wl-unique-id) + (progn (sleep-for 1) (wl-unique-id)))))) -- 1.7.10.4