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"))
9 (riece-alias-abbrev-percent-hack "#riece:*.jp")
13 (riece-alias-expand-percent-hack "%riece")
16 (luna-define-method test-riece-alias-alist-1 ((case test-riece-alias))
17 (let ((riece-alias-alist '(("#riece" . "#r"))))
20 (riece-alias-abbrev-identity-string "#riece")
24 (riece-alias-expand-identity-string "#r")
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"))
32 (riece-alias-abbrev-identity-string "#riece:*.jp")
36 (riece-alias-expand-identity-string "%r")
39 (luna-define-method test-riece-alias-altsep-1 ((case test-riece-alias))
40 (let ((riece-alias-alternate-separator "@"))
43 (riece-alias-abbrev-alternate-separator "#riece")
47 (riece-alias-abbrev-alternate-separator "#riece localhost")
51 (riece-alias-abbrev-alternate-separator "#ch@nnel")
55 (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
56 "#ch@@nnel@localhost"))))
58 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
59 (let ((riece-alias-alternate-separator "@@"))
62 (riece-alias-abbrev-alternate-separator "#riece")
66 (riece-alias-abbrev-alternate-separator "#riece localhost")
70 (riece-alias-abbrev-alternate-separator "#ch@@nnel")
74 (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
75 "#ch@@@@nnel@@localhost"))))
77 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
78 (let ((riece-alias-alternate-separator "@"))
81 (riece-alias-expand-alternate-separator "#riece")
85 (riece-alias-expand-alternate-separator "#riece@localhost")
89 (riece-alias-expand-alternate-separator "#ch@@nnel")
93 (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
94 "#ch@nnel localhost"))))
96 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
97 (let ((riece-alias-alternate-separator "@@"))
100 (riece-alias-expand-alternate-separator "#riece")
104 (riece-alias-expand-alternate-separator "#riece@@localhost")
108 (riece-alias-expand-alternate-separator "#ch@@@@nnel")
112 (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
113 "#ch@@nnel localhost"))))