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