3 (luna-define-class test-riece-log (lunit-test-case))
5 (defun test-riece-log-delete-directory (directory)
6 (let (file-name-coding-system
7 default-file-name-coding-system
8 (files (directory-files directory t nil t)))
10 (if (file-directory-p (car files))
11 (unless (member (file-name-nondirectory (car files)) '("." ".."))
12 (test-riece-log-delete-directory (car files)))
13 (delete-file (car files)))
14 (setq files (cdr files)))
15 (delete-directory directory)))
17 (luna-define-method lunit-test-case-setup ((case test-riece-log))
18 (setq riece-log-directory
19 (expand-file-name (make-temp-name "test-riece-log")
20 (if (featurep 'xemacs)
22 temporary-file-directory))
23 test-riece-log-directory
24 (expand-file-name "=23riece" riece-log-directory))
25 (make-directory riece-log-directory)
26 (make-directory test-riece-log-directory)
27 (write-region "03:14 <test> a b c\n03:15 <test> a b c\n" nil
28 (expand-file-name "19700102.txt" test-riece-log-directory)
30 (write-region "03:14 <test> 1 2 3\n" nil
31 (expand-file-name "19700101.txt" test-riece-log-directory)
34 (luna-define-method lunit-test-case-teardown ((case test-riece-log))
35 (test-riece-log-delete-directory riece-log-directory))
37 (luna-define-method test-riece-log-insert-1 ((case test-riece-log))
38 (let (riece-log-directory-map)
42 (concat "03:14 <test> 1 2 3 (1970/01/01)\n"
43 "03:14 <test> a b c (1970/01/02)\n"
44 "03:15 <test> a b c (1970/01/02)\n")
46 (riece-log-insert (riece-make-identity "#riece" "") 3)
49 (luna-define-method test-riece-log-insert-2 ((case test-riece-log))
50 (let (riece-log-directory-map)
55 (riece-log-insert (riece-make-identity "#riece" "") t)
58 (luna-define-method test-riece-log-encode-file-name ((case test-riece-log))
59 (let (riece-log-file-name-coding-system)
63 (riece-log-encode-file-name "#riece")))
66 (equal "=23riece=3A=2A=2Ejp"
67 (riece-log-encode-file-name "#riece:*.jp")))
71 (riece-log-encode-file-name "#riece=")))))
73 (luna-define-method test-riece-log-encode-file-name-mule
74 ((case test-riece-log))
75 (let ((riece-log-file-name-coding-system 'iso-8859-1))
78 (equal "=23\xABriece\xBB"
79 (riece-log-encode-file-name
81 (make-char 'latin-iso8859-1 43)
82 (make-char 'latin-iso8859-1 59))))))
83 (let ((riece-log-file-name-coding-system 'iso-2022-jp))
86 (equal "=23=1B=24B=24j=21=3C=249=1B=28B"
87 (riece-log-encode-file-name
89 (make-char 'japanese-jisx0208 36 106)
90 (make-char 'japanese-jisx0208 33 60)
91 (make-char 'japanese-jisx0208 36 57)))))))
93 (luna-define-method test-riece-log-decode-file-name ((case test-riece-log))
94 (let (riece-log-file-name-coding-system)
98 (riece-log-decode-file-name "=23riece")))
102 (riece-log-decode-file-name "=23riece=3A=2A=2Ejp")))
106 (riece-log-decode-file-name "=23riece==")))))
108 (luna-define-method test-riece-log-decode-file-name-mule
109 ((case test-riece-log))
110 (let ((riece-log-file-name-coding-system 'iso-8859-1))
113 (equal (format "#%criece%c"
114 (make-char 'latin-iso8859-1 43)
115 (make-char 'latin-iso8859-1 59))
116 (riece-log-decode-file-name
117 "=23\xABriece\xBB"))))
118 (let ((riece-log-file-name-coding-system 'iso-2022-jp))
121 (equal (format "#%c%c%c"
122 (make-char 'japanese-jisx0208 36 106)
123 (make-char 'japanese-jisx0208 33 60)
124 (make-char 'japanese-jisx0208 36 57))
125 (riece-log-decode-file-name
126 "=23=1B=24B=24j=21=3C=249=1B=28B")))))
128 (luna-define-method test-riece-log-display-message-function
129 ((case test-riece-log))
130 (let ((riece-log-file-name-coding-system 'euc-jp)
131 (riece-log-enabled t)
132 riece-log-directory-map
133 (riece-server-process-alist
134 (list (cons "" (start-process "" (current-buffer) "true")))))
135 (put 'riece-log 'riece-addon-enabled t)
136 (riece-log-display-message-function
138 (riece-make-identity "ueno" "")
139 (riece-make-identity (format "#%c%c%c"
140 (make-char 'japanese-jisx0208 36 106)
141 (make-char 'japanese-jisx0208 33 60)
142 (make-char 'japanese-jisx0208 36 57))
145 (put 'riece-log 'riece-addon-enabled nil))
146 (let (file-name-coding-system
147 default-file-name-coding-system)
152 (encode-coding-string
154 (make-char 'japanese-jisx0208 36 106)
155 (make-char 'japanese-jisx0208 33 60)
156 (make-char 'japanese-jisx0208 36 57))
158 riece-log-directory)))))