3 (luna-define-class test-riece-log (lunit-test-case))
5 (defun test-riece-log-delete-directory (directory)
6 (let ((files (directory-files directory t nil t)))
8 (if (file-directory-p (car files))
9 (unless (member (file-name-nondirectory (car files)) '("." ".."))
10 (test-riece-log-delete-directory (car files)))
11 (delete-file (car files)))
12 (setq files (cdr files)))
13 (delete-directory directory)))
15 (luna-define-method lunit-test-case-setup ((case test-riece-log))
16 (setq riece-log-directory
17 (expand-file-name (make-temp-name "test-riece-log")
18 (if (featurep 'xemacs)
20 temporary-file-directory))
21 test-riece-log-directory
22 (expand-file-name "=23riece" riece-log-directory))
23 (make-directory riece-log-directory)
24 (make-directory test-riece-log-directory)
25 (write-region "03:14 <test> a b c\n03:15 <test> a b c\n" nil
26 (expand-file-name "20380119.txt" test-riece-log-directory)
28 (write-region "03:14 <test> 1 2 3\n" nil
29 (expand-file-name "20380118.txt" test-riece-log-directory)
32 (luna-define-method lunit-test-case-teardown ((case test-riece-log))
33 (test-riece-log-delete-directory riece-log-directory))
35 (luna-define-method test-riece-log-insert-1 ((case test-riece-log))
36 (let (riece-log-directory-map)
40 (concat "03:14 <test> 1 2 3 (2038/01/18)\n"
41 "03:14 <test> a b c (2038/01/19)\n"
42 "03:15 <test> a b c (2038/01/19)\n")
44 (riece-log-insert (riece-make-identity "#riece" "") 3)
47 (luna-define-method test-riece-log-insert-2 ((case test-riece-log))
48 (let (riece-log-directory-map)
53 (riece-log-insert (riece-make-identity "#riece" "") t)
56 (luna-define-method test-riece-log-encode-file-name ((case test-riece-log))
57 (let (riece-log-file-name-coding-system)
61 (riece-log-encode-file-name "#riece")))
64 (equal "=23riece=3A=2A=2Ejp"
65 (riece-log-encode-file-name "#riece:*.jp")))
69 (riece-log-encode-file-name "#riece=")))))
71 (luna-define-method test-riece-log-encode-file-name-mule
72 ((case test-riece-log))
73 (let ((riece-log-file-name-coding-system 'iso-8859-1))
76 (equal "=23\xABriece\xBB"
77 (riece-log-encode-file-name
79 (make-char 'latin-iso8859-1 43)
80 (make-char 'latin-iso8859-1 59))))))
81 (let ((riece-log-file-name-coding-system 'iso-2022-jp))
84 (equal "=23=1B=24B=24j=21=3C=249=1B=28B"
85 (riece-log-encode-file-name
87 (make-char 'japanese-jisx0208 36 106)
88 (make-char 'japanese-jisx0208 33 60)
89 (make-char 'japanese-jisx0208 36 57)))))))
91 (luna-define-method test-riece-log-decode-file-name ((case test-riece-log))
92 (let (riece-log-file-name-coding-system)
96 (riece-log-decode-file-name "=23riece")))
100 (riece-log-decode-file-name "=23riece=3A=2A=2Ejp")))
104 (riece-log-decode-file-name "=23riece==")))))
106 (luna-define-method test-riece-log-decode-file-name-mule
107 ((case test-riece-log))
108 (let ((riece-log-file-name-coding-system 'iso-8859-1))
111 (equal (format "#%criece%c"
112 (make-char 'latin-iso8859-1 43)
113 (make-char 'latin-iso8859-1 59))
114 (riece-log-decode-file-name
115 "=23\xABriece\xBB"))))
116 (let ((riece-log-file-name-coding-system 'iso-2022-jp))
119 (equal (format "#%c%c%c"
120 (make-char 'japanese-jisx0208 36 106)
121 (make-char 'japanese-jisx0208 33 60)
122 (make-char 'japanese-jisx0208 36 57))
123 (riece-log-decode-file-name
124 "=23=1B=24B=24j=21=3C=249=1B=28B")))))
126 (luna-define-method test-riece-log-display-message-function
127 ((case test-riece-log))
128 (let ((riece-log-file-name-coding-system 'euc-jp)
129 (riece-log-enabled t)
130 riece-log-directory-map
131 (riece-server-process-alist
132 (list (cons "" (start-process "" (current-buffer) "yes")))))
133 (riece-log-display-message-function
135 (riece-make-identity "ueno" "")
136 (riece-make-identity (format "#%c%c%c"
137 (make-char 'japanese-jisx0208 36 106)
138 (make-char 'japanese-jisx0208 33 60)
139 (make-char 'japanese-jisx0208 36 57))
142 (let (file-name-coding-system)
147 (encode-coding-string
149 (make-char 'japanese-jisx0208 36 106)
150 (make-char 'japanese-jisx0208 33 60)
151 (make-char 'japanese-jisx0208 36 57))
153 riece-log-directory)))))