3 (luna-define-class test-riece-alias (lunit-test-case))
5 (luna-define-method test-riece-alias-percent-hack ((case test-riece-alias))
6 (let ((riece-alias-percent-hack-mask "*.jp"))
10 (riece-alias-abbrev-percent-hack "#riece:*.jp")
15 (riece-alias-expand-percent-hack "%riece")
18 (luna-define-method test-riece-alias-alist-1 ((case test-riece-alias))
19 (let ((riece-alias-alist '(("#riece" . "#r"))))
23 (riece-alias-abbrev-identity-string "#riece")
28 (riece-alias-expand-identity-string "#r")
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"))
37 (riece-alias-abbrev-identity-string "#riece:*.jp")
42 (riece-alias-expand-identity-string "%r")
45 (luna-define-method test-riece-alias-altsep-1 ((case test-riece-alias))
46 (let ((riece-alias-alternate-separator "@"))
50 (riece-alias-abbrev-alternate-separator "#riece")
55 (riece-alias-abbrev-alternate-separator "#riece localhost")
60 (riece-alias-abbrev-alternate-separator "#ch@nnel")
65 (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
66 "#ch@@nnel@localhost"))))
68 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
69 (let ((riece-alias-alternate-separator "@@"))
73 (riece-alias-abbrev-alternate-separator "#riece")
78 (riece-alias-abbrev-alternate-separator "#riece localhost")
83 (riece-alias-abbrev-alternate-separator "#ch@@nnel")
88 (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
89 "#ch@@@@nnel@@localhost"))))
91 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
92 (let ((riece-alias-alternate-separator "@"))
96 (riece-alias-expand-alternate-separator "#riece")
101 (riece-alias-expand-alternate-separator "#riece@localhost")
106 (riece-alias-expand-alternate-separator "#ch@@nnel")
111 (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
112 "#ch@nnel localhost"))))
114 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
115 (let ((riece-alias-alternate-separator "@@"))
119 (riece-alias-expand-alternate-separator "#riece")
124 (riece-alias-expand-alternate-separator "#riece@@localhost")
129 (riece-alias-expand-alternate-separator "#ch@@@@nnel")
134 (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
135 "#ch@@nnel localhost"))))