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))))))