From: ueno <ueno>
Date: Fri, 12 Aug 2005 08:39:29 +0000 (+0000)
Subject: Use epoch time for testing.
X-Git-Tag: channel-coding-branchpoint~118
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ad2dd7bec3df564c4d62bbd94290767b7b8e97ff;p=elisp%2Friece.git

Use epoch time for testing.
---

diff --git a/lisp/test/test-riece-log.el b/lisp/test/test-riece-log.el
index 98a3c05..8f92dc9 100644
--- a/lisp/test/test-riece-log.el
+++ b/lisp/test/test-riece-log.el
@@ -25,10 +25,10 @@
   (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)
+		(expand-file-name "19700102.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)
+		(expand-file-name "19700101.txt" test-riece-log-directory)
 		t 0))
 
 (luna-define-method lunit-test-case-teardown ((case test-riece-log))
@@ -39,9 +39,9 @@
     (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")
+      (concat "03:14 <test> 1 2 3 (1970/01/01)\n"
+	      "03:14 <test> a b c (1970/01/02)\n"
+	      "03:15 <test> a b c (1970/01/02)\n")
       (with-temp-buffer
 	(riece-log-insert (riece-make-identity "#riece" "") 3)
 	(buffer-string))))))