(setq files (cdr files)))
(delete-directory directory)))
-(luna-define-method test-riece-log-flashback ((case test-riece-log))
- (let ((riece-log-directory
- (expand-file-name (make-temp-name "test-riece-log")
+(luna-define-method lunit-test-case-setup ((case test-riece-log))
+ (setq riece-log-directory
+ (expand-file-name (make-temp-name "test-riece-log")
(if (featurep 'xemacs)
(temp-directory)
- temporary-file-directory)))
- riece-addons)
- (unwind-protect
- (let ((dir (expand-file-name "riece" riece-log-directory))
- (riece-log-flashback 2)
- riece-log-directory-map)
- (make-directory riece-log-directory)
- (make-directory dir)
- (write-region "03:14 <test> a b c\n" nil
- (expand-file-name "20380119.log" dir) t 0)
- (write-region "03:14 <test> 1 2 3\n" nil
- (expand-file-name "20380118.log" dir) t 0)
- (lunit-assert-2
- case
- (equal
- "03:14 <test> 1 2 3 (2038/01/18)\n03:14 <test> a b c (2038/01/19)\n"
+ temporary-file-directory))
+ test-riece-log-directory
+ (expand-file-name "=23riece" riece-log-directory))
+ (make-directory riece-log-directory)
+ (make-directory test-riece-log-directory)
+ (write-region "03:14 <test> a b c\n03:15 <test> a b c\n" nil
+ (expand-file-name "20380119.txt" test-riece-log-directory)
+ t 0)
+ (write-region "03:14 <test> 1 2 3\n" nil
+ (expand-file-name "20380118.txt" test-riece-log-directory)
+ t 0))
+
+(luna-define-method lunit-test-case-teardown ((case test-riece-log))
+ (test-riece-log-delete-directory riece-log-directory))
+
+(luna-define-method test-riece-log-insert-1 ((case test-riece-log))
+ (let (riece-log-directory-map)
+ (lunit-assert-2
+ case
+ (equal
+ (concat "03:14 <test> 1 2 3 (2038/01/18)\n"
+ "03:14 <test> a b c (2038/01/19)\n"
+ "03:15 <test> a b c (2038/01/19)\n")
+ (with-temp-buffer
+ (riece-log-insert (riece-make-identity "#riece" "") 3)
+ (buffer-string))))))
+
+(luna-define-method test-riece-log-insert-2 ((case test-riece-log))
+ (let (riece-log-directory-map)
+ (lunit-assert-2
+ case
+ (equal ""
(with-temp-buffer
- (riece-log-flashback (riece-make-identity "#riece" ""))
- (buffer-string)))))
- (test-riece-log-delete-directory riece-log-directory))))
-
+ (riece-log-insert (riece-make-identity "#riece" "") t)
+ (buffer-string))))))
+
+(luna-define-method test-riece-log-encode-file-name ((case test-riece-log))
+ (let (riece-log-file-name-coding-system)
+ (lunit-assert-2
+ case
+ (equal "=23riece"
+ (riece-log-encode-file-name "#riece")))
+ (lunit-assert-2
+ case
+ (equal "=23riece=3A=2A=2Ejp"
+ (riece-log-encode-file-name "#riece:*.jp")))
+ (lunit-assert-2
+ case
+ (equal "=23riece=="
+ (riece-log-encode-file-name "#riece=")))))
+
+(luna-define-method test-riece-log-encode-file-name-mule
+ ((case test-riece-log))
+ (let ((riece-log-file-name-coding-system 'iso-8859-1))
+ (lunit-assert-2
+ case
+ (equal "=23\xABriece\xBB"
+ (riece-log-encode-file-name
+ (format "#%criece%c"
+ (make-char 'latin-iso8859-1 43)
+ (make-char 'latin-iso8859-1 59))))))
+ (let ((riece-log-file-name-coding-system 'iso-2022-jp))
+ (lunit-assert-2
+ case
+ (equal "=23=1B=24B=24j=21=3C=249=1B=28B"
+ (riece-log-encode-file-name
+ (format "#%c%c%c"
+ (make-char 'japanese-jisx0208 36 106)
+ (make-char 'japanese-jisx0208 33 60)
+ (make-char 'japanese-jisx0208 36 57)))))))
+
+(luna-define-method test-riece-log-decode-file-name ((case test-riece-log))
+ (let (riece-log-file-name-coding-system)
+ (lunit-assert-2
+ case
+ (equal "#riece"
+ (riece-log-decode-file-name "=23riece")))
+ (lunit-assert-2
+ case
+ (equal "#riece:*.jp"
+ (riece-log-decode-file-name "=23riece=3A=2A=2Ejp")))
+ (lunit-assert-2
+ case
+ (equal "#riece="
+ (riece-log-decode-file-name "=23riece==")))))
+
+(luna-define-method test-riece-log-decode-file-name-mule
+ ((case test-riece-log))
+ (let ((riece-log-file-name-coding-system 'iso-8859-1))
+ (lunit-assert-2
+ case
+ (equal (format "#%criece%c"
+ (make-char 'latin-iso8859-1 43)
+ (make-char 'latin-iso8859-1 59))
+ (riece-log-decode-file-name
+ "=23\xABriece\xBB"))))
+ (let ((riece-log-file-name-coding-system 'iso-2022-jp))
+ (lunit-assert-2
+ case
+ (equal (format "#%c%c%c"
+ (make-char 'japanese-jisx0208 36 106)
+ (make-char 'japanese-jisx0208 33 60)
+ (make-char 'japanese-jisx0208 36 57))
+ (riece-log-decode-file-name
+ "=23=1B=24B=24j=21=3C=249=1B=28B")))))
+
+(luna-define-method test-riece-log-display-message-function
+ ((case test-riece-log))
+ (let ((riece-log-file-name-coding-system 'euc-jp)
+ (riece-log-enabled t)
+ riece-log-directory-map
+ (riece-server-process-alist
+ (list (cons "" (start-process "" (current-buffer) "sleep" "10")))))
+ (riece-log-display-message-function
+ (riece-make-message
+ (riece-make-identity "ueno" "")
+ (riece-make-identity (format "#%c%c%c"
+ (make-char 'japanese-jisx0208 36 106)
+ (make-char 'japanese-jisx0208 33 60)
+ (make-char 'japanese-jisx0208 36 57))
+ "")
+ "a b c\n" nil t)))
+ (let (file-name-coding-system)
+ (lunit-assert-2
+ case
+ (file-directory-p
+ (expand-file-name
+ (encode-coding-string
+ (format "=23%c%c%c"
+ (make-char 'japanese-jisx0208 36 106)
+ (make-char 'japanese-jisx0208 33 60)
+ (make-char 'japanese-jisx0208 36 57))
+ 'euc-jp)
+ riece-log-directory)))))
projects / riece / blobdiff