From: kaoru <kaoru>
Date: Sun, 27 Oct 2002 01:16:07 +0000 (+0000)
Subject: * test-dist.el (test-version-readme): New testcase.
X-Git-Tag: wl-2_10_0pre2~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16a58bd152185492165d8c2716ff3d8f5a7a845e;p=elisp%2Fwanderlust.git

* test-dist.el (test-version-readme): New testcase.
(test-wl-demo-copyright-notice): Ditto.
---

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))))