(test-elmo-list-diff): Fix expected test results.

[elisp/wanderlust.git] / tests / test-dist.el

diff --git a/tests/test-dist.el b/tests/test-dist.el
index c9b62d4..432500e 100644 (file)
--- 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))))
 
@@ -63,13 +63,13 @@
   (require 'wl-demo)
   (lunit-assert
    (file-exists-p
-    (expand-file-name (concat wl-demo-icon-name ".xpm") ICONDIR))))
+    (expand-file-name (concat (wl-demo-icon-name) ".xpm") ICONDIR))))
 
 (luna-define-method test-version-status-icon-xbm ((case test-dist))
   (require 'wl-demo)
   (lunit-assert
    (file-exists-p
-    (expand-file-name (concat wl-demo-icon-name ".xbm") ICONDIR))))
+    (expand-file-name (concat (wl-demo-icon-name) ".xbm") ICONDIR))))
 
 ;; verstion.texi
 (luna-define-method test-texi-version ((case test-dist))
@@ -82,14 +82,14 @@
       (re-search-forward "^@set VERSION \\([0-9\.]+\\)$")
       (match-string 1)))))
 
-;; wl-refcard.tex
+;; 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 "wl-refcard.tex" DOCDIR))
+      (insert-file-contents (expand-file-name "version.tex" DOCDIR))
       (re-search-forward "^\\\\def\\\\versionnumber{\\([0-9\.]+\\)}$")
       (match-string 1)))))
 
@@ -128,7 +128,7 @@
     (with-temp-buffer
       (insert-file-contents (expand-file-name "ChangeLog" "./"))
       (re-search-forward
-       "\\* \\([0-9\\.]+\\) - \"\\([^\"]+\\)\".$")
+       "^\t\\* \\([0-9\\.]+\\) - \"\\([^\"]+\\)\"$")
       (lunit-assert
        (string=
        (product-version-string (product-find 'wl-version))
@@ -137,3 +137,28 @@
        (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)))