Fixed.
authorueno <ueno>
Thu, 25 Aug 2005 09:49:22 +0000 (09:49 +0000)
committerueno <ueno>
Thu, 25 Aug 2005 09:49:22 +0000 (09:49 +0000)
lisp/test/test-riece-addon.el

index b0e39b1..9fae05c 100644 (file)
   (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)))))