* 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 (file)
--- 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 (file)
--- 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))))