tests/test-elmo-localdir.el

   1 ;; -*- lexical-binding: t -*-
   2 (require 'lunit)
   3 (require 'elmo-localdir)
   4
   5 (luna-define-class test-elmo-localdir (lunit-test-case))
   6
   7 (luna-define-method test-elmo-folder-expand-msgdb-path-1 ((case test-elmo-localdir))
   8   (lunit-assert
   9    (string=
  10     (elmo-folder-expand-msgdb-path
  11      (wl-folder-get-elmo-folder
  12       (concat "+" (expand-file-name "~/Mail/inbox"))))
  13     (elmo-folder-expand-msgdb-path
  14      (wl-folder-get-elmo-folder "+~/Mail/inbox")))))
  15
  16 (luna-define-method test-elmo-folder-expand-msgdb-path-2 ((case test-elmo-localdir))
  17   (lunit-assert
  18    (string=
  19     (expand-file-name "localdir/inbox" elmo-msgdb-directory)
  20     (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox")))))
  21
  22
  23 (luna-define-method test-elmo-folder-expand-msgdb-path-3 ((case test-elmo-localdir))
  24   (lunit-assert
  25    (not
  26     (string=
  27      (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+/inbox"))
  28      (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox"))))))