From: ueno <ueno>
Date: Thu, 25 Aug 2005 09:49:22 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~73
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1e8ca0572b7e3fe7132100b4e645a45443d5c609;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/test/test-riece-addon.el b/lisp/test/test-riece-addon.el
index b0e39b1..9fae05c 100644
--- a/lisp/test/test-riece-addon.el
+++ b/lisp/test/test-riece-addon.el
@@ -28,15 +28,16 @@
   (lunit-assert-2
    case
    (equal
-    (riece-resolve-addons '(test-riece-addon-1 test-riece-addon-2))
+    (mapcar #'car (riece-resolve-addons
+		   '(test-riece-addon-1 test-riece-addon-2)))
     '(test-riece-addon-3 test-riece-addon-4
 			 test-riece-addon-2 test-riece-addon-1))))
 
 (luna-define-method test-riece-resolve-addons-2 ((case test-riece-addon))
   (lunit-assert-2
    case
-   (equal
-    (condition-case error
-	(riece-resolve-addons '(test-riece-addon-5 test-riece-addon-6))
-      (error (nth 1 error)))
-    "Circular add-on dependency found")))
+   (condition-case error
+       (progn
+	 (riece-resolve-addons '(test-riece-addon-5 test-riece-addon-6))
+	 nil)
+     (error (nth 1 error)))))