Revert last change.
[elisp/wanderlust.git] / tests / test-wl-util.el
1 (require 'lunit)
2 (require 'wl-util)
3
4 (luna-define-class test-wl-util (lunit-test-case))
5
6 (luna-define-method test-wl-parse-addresses-1 ((case test-wl-util))
7   (lunit-assert
8    (equal
9     '("foo@example.com" "bar@example.com")
10     (wl-parse-addresses "foo@example.com, bar@example.com"))))
11
12
13 ;; Message-ID
14 (luna-define-method test-wl-unique-id ((case test-wl-util))
15   (lunit-assert
16    (not
17     (string= (wl-unique-id)
18              (progn (sleep-for 1) (wl-unique-id))))))