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 symbol)))
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 symbol)))
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\.]+\\)$")