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 "riece" 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.log" test-riece-log-directory)
28 (write-region "03:14 <test> 1 2 3\n" nil
29 (expand-file-name "20380118.log" 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-flashback-1 ((case test-riece-log))
36 (let ((riece-log-flashback 3)
37 riece-log-directory-map)
41 (concat "03:14 <test> 1 2 3 (2038/01/18)\n"
42 "03:14 <test> a b c (2038/01/19)\n"
43 "03:15 <test> a b c (2038/01/19)\n")
45 (riece-log-flashback (riece-make-identity "#riece" ""))
48 (luna-define-method test-riece-log-flashback-2 ((case test-riece-log))
49 (let ((riece-log-flashback t)
50 riece-log-directory-map)
55 (riece-log-flashback (riece-make-identity "#riece" ""))