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-altsep-1 ((case test-riece-alias))
  17   (let ((riece-alias-alternate-separator "@"))
  18     (lunit-assert
  19      (equal
  20       (riece-alias-abbrev-alternate-separator "#riece")
  21       "#riece"))
  22     (lunit-assert
  23      (equal
  24       (riece-alias-abbrev-alternate-separator "#riece localhost")
  25       "#riece@localhost"))
  26     (lunit-assert
  27      (equal
  28       (riece-alias-abbrev-alternate-separator "#ch@nnel")
  29       "#ch@@nnel"))
  30     (lunit-assert
  31      (equal
  32       (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
  33       "#ch@@nnel@localhost"))))
  34
  35 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
  36   (let ((riece-alias-alternate-separator "@@"))
  37     (lunit-assert
  38      (equal
  39       (riece-alias-abbrev-alternate-separator "#riece")
  40       "#riece"))
  41     (lunit-assert
  42      (equal
  43       (riece-alias-abbrev-alternate-separator "#riece localhost")
  44       "#riece@@localhost"))
  45     (lunit-assert
  46      (equal
  47       (riece-alias-abbrev-alternate-separator "#ch@@nnel")
  48       "#ch@@@@nnel"))
  49     (lunit-assert
  50      (equal
  51       (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
  52       "#ch@@@@nnel@@localhost"))))
  53
  54 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
  55   (let ((riece-alias-alternate-separator "@"))
  56     (lunit-assert
  57      (equal
  58       (riece-alias-expand-alternate-separator "#riece")
  59       "#riece"))
  60     (lunit-assert
  61      (equal
  62       (riece-alias-expand-alternate-separator "#riece@localhost")
  63       "#riece localhost"))
  64     (lunit-assert
  65      (equal
  66       (riece-alias-expand-alternate-separator "#ch@@nnel")
  67       "#ch@nnel"))
  68     (lunit-assert
  69      (equal
  70       (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
  71       "#ch@nnel localhost"))))
  72
  73 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
  74   (let ((riece-alias-alternate-separator "@@"))
  75     (lunit-assert
  76      (equal
  77       (riece-alias-expand-alternate-separator "#riece")
  78       "#riece"))
  79     (lunit-assert
  80      (equal
  81       (riece-alias-expand-alternate-separator "#riece@@localhost")
  82       "#riece localhost"))
  83     (lunit-assert
  84      (equal
  85       (riece-alias-expand-alternate-separator "#ch@@@@nnel")
  86       "#ch@@nnel"))
  87     (lunit-assert
  88      (equal
  89       (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
  90       "#ch@@nnel localhost"))))