* test-dist.el (test-codename, test-version-wl-changelog)

(test-version-elmo-changelog, test-version-toplevel-changelog) : New testcases.

diff --git a/tests/test-dist.el b/tests/test-dist.el
index 28ef908..c9b62d4 100644 (file)
--- a/tests/test-dist.el
+++ b/tests/test-dist.el
@@ -92,3 +92,48 @@
       (insert-file-contents (expand-file-name "wl-refcard.tex" DOCDIR))
       (re-search-forward "^\\\\def\\\\versionnumber{\\([0-9\.]+\\)}$")
       (match-string 1)))))
+
+;; wl/ChangeLog
+(luna-define-method test-version-wl-changelog ((case test-dist))
+  (require 'wl-version)
+  (lunit-assert
+   (string=
+    (product-version-string (product-find 'wl-version))
+    (with-temp-buffer
+      (insert-file-contents (expand-file-name "ChangeLog" WLDIR))
+      (re-search-forward
+       "^\t\\* Version number is increased to \\([0-9\\.]+[0-9]\\).$")
+      (match-string 1)))))
+
+;; elmo/ChangeLog
+(luna-define-method test-version-elmo-changelog ((case test-dist))
+  (require 'elmo-version)
+  (lunit-assert
+   (string=
+    (product-version-string (product-find 'elmo-version))
+    (with-temp-buffer
+      (insert-file-contents (expand-file-name "ChangeLog" ELMODIR))
+      (re-search-forward
+       "^\t\\* elmo-version.el (elmo-version): Up to \\([0-9\\.]+[0-9]\\).$")
+      (match-string 1)))))
+
+;; ChangeLog (toplevel)
+(luna-define-method test-version-toplevel-changelog ((case test-dist))
+  (require 'wl-version)
+  (when (and (string= (wl-version-status) "stable")
+            ;; pre release version don't check.
+            (not (string-match
+                  "pre"
+                  (product-code-name (product-find 'wl-version)))))
+    (with-temp-buffer
+      (insert-file-contents (expand-file-name "ChangeLog" "./"))
+      (re-search-forward
+       "\\* \\([0-9\\.]+\\) - \"\\([^\"]+\\)\".$")
+      (lunit-assert
+       (string=
+       (product-version-string (product-find 'wl-version))
+       (match-string 1)))
+      (lunit-assert
+       (string=
+       (product-code-name (product-find 'wl-version))
+       (match-string 2))))))