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-altsep-1 ((case test-riece-alias))
17 (let ((riece-alias-alternate-separator "@"))
20 (riece-alias-abbrev-alternate-separator "#riece")
24 (riece-alias-abbrev-alternate-separator "#riece localhost")
28 (riece-alias-abbrev-alternate-separator "#ch@nnel")
32 (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
33 "#ch@@nnel@localhost"))))
35 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
36 (let ((riece-alias-alternate-separator "@@"))
39 (riece-alias-abbrev-alternate-separator "#riece")
43 (riece-alias-abbrev-alternate-separator "#riece localhost")
47 (riece-alias-abbrev-alternate-separator "#ch@@nnel")
51 (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
52 "#ch@@@@nnel@@localhost"))))
54 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
55 (let ((riece-alias-alternate-separator "@"))
58 (riece-alias-expand-alternate-separator "#riece")
62 (riece-alias-expand-alternate-separator "#riece@localhost")
66 (riece-alias-expand-alternate-separator "#ch@@nnel")
70 (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
71 "#ch@nnel localhost"))))
73 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
74 (let ((riece-alias-alternate-separator "@@"))
77 (riece-alias-expand-alternate-separator "#riece")
81 (riece-alias-expand-alternate-separator "#riece@@localhost")
85 (riece-alias-expand-alternate-separator "#ch@@@@nnel")
89 (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
90 "#ch@@nnel localhost"))))