(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))))
(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))))
(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))
(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)))))
+
+;; 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)))