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