(test-version-status-icon-xpm): Follow the

redefined `wl-demo-icon-name' as function.
(test-version-status-icon-xbm): Ditto.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 269f610..bd31ed6 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,9 @@
+2004-01-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * test-dist.el (test-version-status-icon-xpm): Follow the
+       redefined `wl-demo-icon-name' as function.
+       (test-version-status-icon-xbm): Ditto.
+
 2003-11-30  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * check-modules.el (test-spamfilter): Check `spamf-corpus-name'.

diff --git a/tests/test-dist.el b/tests/test-dist.el
index 5b276aa..432500e 100644 (file)
--- a/tests/test-dist.el
+++ b/tests/test-dist.el
@@ -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))