5 (luna-define-class test-dist
(lunit-test-case))
8 (luna-define-method test-wl-modules-exists
((case test-dist
))
14 (setq filename
(concat (symbol-name module
) ".el"))
15 (unless (file-exists-p (expand-file-name filename WLDIR
))
16 (add-to-list 'lost filename
)))
21 (luna-define-method test-elmo-modules-exists
((case test-dist
))
27 (setq filename
(concat (symbol-name module
) ".el"))
28 (unless (file-exists-p (expand-file-name filename ELMODIR
))
29 (add-to-list 'lost filename
)))
34 (luna-define-method test-util-modules-exists
((case test-dist
))
40 (setq filename
(concat (symbol-name module
) ".el"))
41 (unless (file-exists-p (expand-file-name filename UTILSDIR
))
42 (add-to-list 'lost symbol
)))
47 (luna-define-method test-wl-icon-exists
((case test-dist
))
50 (let (name value lost
)
53 (setq name
(symbol-name symbol
))
54 (setq value
(and (boundp symbol
) (symbol-value symbol
)))
55 (when (and (string-match "^wl-.*-icon$" name
)
57 (string-match "xpm$" value
))
58 (unless (file-exists-p (expand-file-name value ICONDIR
))
59 (add-to-list 'lost symbol
)))))
62 (luna-define-method test-version-status-icon-xpm
((case test-dist
))
66 (expand-file-name (concat (wl-demo-icon-name) ".xpm") ICONDIR
))))
68 (luna-define-method test-version-status-icon-xbm
((case test-dist
))
72 (expand-file-name (concat (wl-demo-icon-name) ".xbm") ICONDIR
))))
75 (luna-define-method test-texi-version
((case test-dist
))
79 (product-version-string (product-find 'wl-version
))
81 (insert-file-contents (expand-file-name "version.texi" DOCDIR
))
82 (re-search-forward "^@set VERSION \\([0-9\.]+\\)$")
86 (luna-define-method test-refcard-version
((case test-dist
))
90 (product-version-string (product-find 'wl-version
))
92 (insert-file-contents (expand-file-name "version.tex" DOCDIR
))
93 (re-search-forward "^\\\\def\\\\versionnumber{\\([0-9\.]+\\)}$")
97 (luna-define-method test-version-wl-changelog
((case test-dist
))
101 (product-version-string (product-find 'wl-version
))
103 (insert-file-contents (expand-file-name "ChangeLog" WLDIR
))
105 "^\t\\* Version number is increased to \\([0-9\\.]+[0-9]\\).$")
109 (luna-define-method test-version-elmo-changelog
((case test-dist
))
110 (require 'elmo-version
)
113 (product-version-string (product-find 'elmo-version
))
115 (insert-file-contents (expand-file-name "ChangeLog" ELMODIR
))
117 "^\t\\* elmo-version.el (elmo-version): Up to \\([0-9\\.]+[0-9]\\).$")
120 ;; ChangeLog (toplevel)
121 (luna-define-method test-version-toplevel-changelog
((case test-dist
))
122 (require 'wl-version
)
123 (when (and (string= (wl-version-status) "stable")
124 ;; pre release version don't check.
127 (product-code-name (product-find 'wl-version
)))))
129 (insert-file-contents (expand-file-name "ChangeLog" "./"))
131 "^\t\\* \\([0-9\\.]+\\) - \"\\([^\"]+\\)\"$")
134 (product-version-string (product-find 'wl-version
))
138 (product-code-name (product-find 'wl-version
))
139 (match-string 2))))))
141 ;; README, README.ja (toplevel)
142 (luna-define-method test-version-readme
((case test-dist
))
143 (require 'wl-version
)
144 (when (string= (wl-version-status) "stable")
148 (insert-file-contents (expand-file-name file
"./"))
149 (re-search-forward "checkout -r wl-\\([0-9]+\\)_\\([0-9]+\\) wanderlust")
151 (= (string-to-number (match-string 1))
152 (nth 0 (product-version (product-find 'wl-version
)))))
154 (= (string-to-number (match-string 2))
155 (nth 1 (product-version (product-find 'wl-version
)))))))
156 '("README" "README.ja"))))
159 (luna-define-method test-wl-demo-copyright-notice
((case test-dist
))
163 (format-time-string "%Y" (current-time))
164 wl-demo-copyright-notice
)))