3 (luna-define-class test-riece-alias (lunit-test-case))
5 (luna-define-method test-riece-alias-altsep-1 ((case test-riece-alias))
6 (let ((riece-alias-alternate-separator "@"))
9 (riece-alias-abbrev-alternate-separator "#riece")
13 (riece-alias-abbrev-alternate-separator "#riece localhost")
17 (riece-alias-abbrev-alternate-separator "#ch@nnel")
21 (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
22 "#ch@@nnel@localhost"))))
24 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
25 (let ((riece-alias-alternate-separator "@@"))
28 (riece-alias-abbrev-alternate-separator "#riece")
32 (riece-alias-abbrev-alternate-separator "#riece localhost")
36 (riece-alias-abbrev-alternate-separator "#ch@@nnel")
40 (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
41 "#ch@@@@nnel@@localhost"))))
43 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
44 (let ((riece-alias-alternate-separator "@"))
47 (riece-alias-expand-alternate-separator "#riece")
51 (riece-alias-expand-alternate-separator "#riece@localhost")
55 (riece-alias-expand-alternate-separator "#ch@@nnel")
59 (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
60 "#ch@nnel localhost"))))
62 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
63 (let ((riece-alias-alternate-separator "@@"))
66 (riece-alias-expand-alternate-separator "#riece")
70 (riece-alias-expand-alternate-separator "#riece@@localhost")
74 (riece-alias-expand-alternate-separator "#ch@@@@nnel")
78 (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
79 "#ch@@nnel localhost"))))