cgit.sxemacs.org Git - riece/blob - lisp/test/test-riece-alias.el

   1 (require 'riece-alias)
   2
   3 (luna-define-class test-riece-alias (lunit-test-case))
   4
   5 (luna-define-method test-riece-alias-percent-hack ((case test-riece-alias))
   6   (let ((riece-alias-percent-hack-mask "*.jp"))
   7     (lunit-assert-2
   8      case
   9      (equal
  10       (riece-alias-abbrev-percent-hack "#riece:*.jp")
  11       "%riece"))
  12     (lunit-assert-2
  13      case
  14      (equal
  15       (riece-alias-expand-percent-hack "%riece")
  16       "#riece:*.jp"))))
  17
  18 (luna-define-method test-riece-alias-alist-1 ((case test-riece-alias))
  19   (let ((riece-alias-alist '(("#riece" . "#r"))))
  20     (lunit-assert-2
  21      case
  22      (equal
  23       (riece-alias-abbrev-identity-string "#riece")
  24       "#r"))
  25     (lunit-assert-2
  26      case
  27      (equal
  28       (riece-alias-expand-identity-string "#r")
  29       "#riece"))))
  30
  31 (luna-define-method test-riece-alias-alist-2 ((case test-riece-alias))
  32   (let ((riece-alias-alist '(("%riece" . "%r")))
  33         (riece-alias-percent-hack-mask "*.jp"))
  34     (lunit-assert-2
  35      case
  36      (equal
  37       (riece-alias-abbrev-identity-string "#riece:*.jp")
  38       "%r"))
  39     (lunit-assert-2
  40      case
  41      (equal
  42       (riece-alias-expand-identity-string "%r")
  43       "#riece:*.jp"))))
  44
  45 (luna-define-method test-riece-alias-altsep-1 ((case test-riece-alias))
  46   (let ((riece-alias-alternate-separator "@"))
  47     (lunit-assert-2
  48      case
  49      (equal
  50       (riece-alias-abbrev-alternate-separator "#riece")
  51       "#riece"))
  52     (lunit-assert-2
  53      case
  54      (equal
  55       (riece-alias-abbrev-alternate-separator "#riece localhost")
  56       "#riece@localhost"))
  57     (lunit-assert-2
  58      case
  59      (equal
  60       (riece-alias-abbrev-alternate-separator "#ch@nnel")
  61       "#ch@@nnel"))
  62     (lunit-assert-2
  63      case
  64      (equal
  65       (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
  66       "#ch@@nnel@localhost"))))
  67
  68 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
  69   (let ((riece-alias-alternate-separator "@@"))
  70     (lunit-assert-2
  71      case
  72      (equal
  73       (riece-alias-abbrev-alternate-separator "#riece")
  74       "#riece"))
  75     (lunit-assert-2
  76      case
  77      (equal
  78       (riece-alias-abbrev-alternate-separator "#riece localhost")
  79       "#riece@@localhost"))
  80     (lunit-assert-2
  81      case
  82      (equal
  83       (riece-alias-abbrev-alternate-separator "#ch@@nnel")
  84       "#ch@@@@nnel"))
  85     (lunit-assert-2
  86      case
  87      (equal
  88       (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
  89       "#ch@@@@nnel@@localhost"))))
  90
  91 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
  92   (let ((riece-alias-alternate-separator "@"))
  93     (lunit-assert-2
  94      case
  95      (equal
  96       (riece-alias-expand-alternate-separator "#riece")
  97       "#riece"))
  98     (lunit-assert-2
  99      case
 100      (equal
 101       (riece-alias-expand-alternate-separator "#riece@localhost")
 102       "#riece localhost"))
 103     (lunit-assert-2
 104      case
 105      (equal
 106       (riece-alias-expand-alternate-separator "#ch@@nnel")
 107       "#ch@nnel"))
 108     (lunit-assert-2
 109      case
 110      (equal
 111       (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
 112       "#ch@nnel localhost"))))
 113
 114 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
 115   (let ((riece-alias-alternate-separator "@@"))
 116     (lunit-assert-2
 117      case
 118      (equal
 119       (riece-alias-expand-alternate-separator "#riece")
 120       "#riece"))
 121     (lunit-assert-2
 122      case
 123      (equal
 124       (riece-alias-expand-alternate-separator "#riece@@localhost")
 125       "#riece localhost"))
 126     (lunit-assert-2
 127      case
 128      (equal
 129       (riece-alias-expand-alternate-separator "#ch@@@@nnel")
 130       "#ch@@nnel"))
 131     (lunit-assert-2
 132      case
 133      (equal
 134       (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
 135       "#ch@@nnel localhost"))))