From 16a58bd152185492165d8c2716ff3d8f5a7a845e Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Sun, 27 Oct 2002 01:16:07 +0000
Subject: [PATCH] * test-dist.el (test-version-readme): New testcase.
 (test-wl-demo-copyright-notice): Ditto.

---
 tests/ChangeLog    |    5 +++++
 tests/test-dist.el |   26 ++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)

diff --git a/tests/ChangeLog b/tests/ChangeLog
index a3a9854..58d1ae9 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* test-dist.el (test-version-readme): New testcase.
+	(test-wl-demo-copyright-notice): Ditto.
+
 2002-10-24  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* check-modules.el (check-modules-flim-content-transfer-encoding):
diff --git a/tests/test-dist.el b/tests/test-dist.el
index 91a98f6..9e51553 100644
--- a/tests/test-dist.el
+++ b/tests/test-dist.el
@@ -137,3 +137,29 @@
        (string=
 	(product-code-name (product-find 'wl-version))
 	(match-string 2))))))
+
+;; README, README.ja (toplevel)
+(luna-define-method test-version-readme ((case test-dist))
+  (require 'wl-version)
+  (when (string= (wl-version-status) "stable")
+    (mapc
+     (lambda (file)
+       (with-temp-buffer
+	 (insert-file-contents (expand-file-name file "./"))
+	 (re-search-forward "checkout -r wl-\\([0-9]+\\)_\\([0-9]+\\) wanderlust")
+	 (lunit-assert
+	  (= (string-to-number (match-string 1))
+	     (nth 0 (product-version (product-find 'wl-version)))))
+	 (lunit-assert
+	  (= (string-to-number (match-string 2))
+	     (nth 1 (product-version (product-find 'wl-version)))))))
+     '("README" "README.ja"))))
+
+;; copyright notice (beta only)
+(luna-define-method test-wl-demo-copyright-notice ((case test-dist))
+  (require 'wl-demo)
+  (when (string= (wl-version-status) "beta")
+    (lunit-assert
+     (string-match
+      (format-time-string "%Y" (current-time))
+      wl-demo-copyright-notice))))
-- 
1.7.10.4