X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Ftest-dist.el;h=5b276aa208b5ab5d5678b9bfbe9c1fefb89581e5;hb=ef641bc9923657a8c1b4c0d46a74a4f431335662;hp=c26a0f8cc9481722d4c3b1b0f9a66fa815959293;hpb=5ca5b1e9100c29e27a73eb223484076da4f82282;p=elisp%2Fwanderlust.git

diff --git a/tests/test-dist.el b/tests/test-dist.el
index c26a0f8..5b276aa 100644
--- a/tests/test-dist.el
+++ b/tests/test-dist.el
@@ -13,7 +13,7 @@
        (lambda (module)
 	 (setq filename (concat (symbol-name module) ".el"))
 	 (unless (file-exists-p (expand-file-name filename WLDIR))
-	   (add-to-list 'lost symbol)))
+	   (add-to-list 'lost filename)))
        WL-MODULES)
       lost))))
 
@@ -26,7 +26,7 @@
        (lambda (module)
 	 (setq filename (concat (symbol-name module) ".el"))
 	 (unless (file-exists-p (expand-file-name filename ELMODIR))
-	   (add-to-list 'lost symbol)))
+	   (add-to-list 'lost filename)))
        ELMO-MODULES)
       lost))))
 
@@ -81,3 +81,84 @@
       (insert-file-contents (expand-file-name "version.texi" DOCDIR))
       (re-search-forward "^@set VERSION \\([0-9\.]+\\)$")
       (match-string 1)))))
+
+;; version.tex
+(luna-define-method test-refcard-version ((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 "version.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
+       "^\t\\* \\([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))))))
+
+;; 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
+(luna-define-method test-wl-demo-copyright-notice ((case test-dist))
+  (require 'wl-demo)
+  (lunit-assert
+   (string-match
+    (format-time-string "%Y" (current-time))
+    wl-demo-copyright-notice)))