* test/test-riece-log.el
[riece] / 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-percent-hack ((case test-riece-alias))
6   (let ((riece-alias-percent-hack-mask "*.jp"))
7     (lunit-assert-2
8      case
9      (equal
10       (riece-alias-abbrev-percent-hack "#riece:*.jp")
11       "%riece"))
12     (lunit-assert-2
13      case
14      (equal
15       (riece-alias-expand-percent-hack "%riece")
16       "#riece:*.jp"))))
17
18 (luna-define-method test-riece-alias-alist-1 ((case test-riece-alias))
19   (let ((riece-alias-alist '(("#riece" . "#r"))))
20     (lunit-assert-2
21      case
22      (equal
23       (riece-alias-abbrev-identity-string "#riece")
24       "#r"))
25     (lunit-assert-2
26      case
27      (equal
28       (riece-alias-expand-identity-string "#r")
29       "#riece"))))
30
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"))
34     (lunit-assert-2
35      case
36      (equal
37       (riece-alias-abbrev-identity-string "#riece:*.jp")
38       "%r"))
39     (lunit-assert-2
40      case
41      (equal
42       (riece-alias-expand-identity-string "%r")
43       "#riece:*.jp"))))
44
45 (luna-define-method test-riece-alias-altsep-1 ((case test-riece-alias))
46   (let ((riece-alias-alternate-separator "@"))
47     (lunit-assert-2
48      case
49      (equal
50       (riece-alias-abbrev-alternate-separator "#riece")
51       "#riece"))
52     (lunit-assert-2
53      case
54      (equal
55       (riece-alias-abbrev-alternate-separator "#riece localhost")
56       "#riece@localhost"))
57     (lunit-assert-2
58      case
59      (equal
60       (riece-alias-abbrev-alternate-separator "#ch@nnel")
61       "#ch@@nnel"))
62     (lunit-assert-2
63      case
64      (equal
65       (riece-alias-abbrev-alternate-separator "#ch@nnel localhost")
66       "#ch@@nnel@localhost"))))
67
68 (luna-define-method test-riece-alias-altsep-2 ((case test-riece-alias))
69   (let ((riece-alias-alternate-separator "@@"))
70     (lunit-assert-2
71      case
72      (equal
73       (riece-alias-abbrev-alternate-separator "#riece")
74       "#riece"))
75     (lunit-assert-2
76      case
77      (equal
78       (riece-alias-abbrev-alternate-separator "#riece localhost")
79       "#riece@@localhost"))
80     (lunit-assert-2
81      case
82      (equal
83       (riece-alias-abbrev-alternate-separator "#ch@@nnel")
84       "#ch@@@@nnel"))
85     (lunit-assert-2
86      case
87      (equal
88       (riece-alias-abbrev-alternate-separator "#ch@@nnel localhost")
89       "#ch@@@@nnel@@localhost"))))
90
91 (luna-define-method test-riece-alias-altsep-3 ((case test-riece-alias))
92   (let ((riece-alias-alternate-separator "@"))
93     (lunit-assert-2
94      case
95      (equal
96       (riece-alias-expand-alternate-separator "#riece")
97       "#riece"))
98     (lunit-assert-2
99      case
100      (equal
101       (riece-alias-expand-alternate-separator "#riece@localhost")
102       "#riece localhost"))
103     (lunit-assert-2
104      case
105      (equal
106       (riece-alias-expand-alternate-separator "#ch@@nnel")
107       "#ch@nnel"))
108     (lunit-assert-2
109      case
110      (equal
111       (riece-alias-expand-alternate-separator "#ch@@nnel@localhost")
112       "#ch@nnel localhost"))))
113
114 (luna-define-method test-riece-alias-altsep-4 ((case test-riece-alias))
115   (let ((riece-alias-alternate-separator "@@"))
116     (lunit-assert-2
117      case
118      (equal
119       (riece-alias-expand-alternate-separator "#riece")
120       "#riece"))
121     (lunit-assert-2
122      case
123      (equal
124       (riece-alias-expand-alternate-separator "#riece@@localhost")
125       "#riece localhost"))
126     (lunit-assert-2
127      case
128      (equal
129       (riece-alias-expand-alternate-separator "#ch@@@@nnel")
130       "#ch@@nnel"))
131     (lunit-assert-2
132      case
133      (equal
134       (riece-alias-expand-alternate-separator "#ch@@@@nnel@@localhost")
135       "#ch@@nnel localhost"))))