From: hmurata <hmurata>
Date: Sun, 11 Jan 2004 15:14:11 +0000 (+0000)
Subject: (test-version-status-icon-xpm): Follow the
X-Git-Tag: wl-2_11_24~45
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2647b706e4c8907ff87ea37cfa0d5387089e371;p=elisp%2Fwanderlust.git

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