tests/test-wl-address.el

   1 ;; -*- lexical-binding: t -*-
   2 (require 'lunit)
   3 (require 'wl-address)
   4
   5 (luna-define-class test-wl-address (lunit-test-case))
   6
   7 (luna-define-method test-wl-address-header-extract-address-1 ((case test-wl-address))
   8   (lunit-assert
   9    (string=
  10     "m-sakura@example.org"
  11     (wl-address-header-extract-address "Mine Sakurai <m-sakura@example.org>")
  12     )))
  13
  14 (luna-define-method test-wl-address-header-extract-address-2 ((case test-wl-address))
  15   (lunit-assert
  16    (string=
  17     "m-sakura@example.org"
  18     (wl-address-header-extract-address "m-sakura@example.org (Mine Sakurai)")
  19     )))