projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
100b905
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Thu, 25 Aug 2005 09:49:22 +0000
(09:49 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Thu, 25 Aug 2005 09:49:22 +0000
(09:49 +0000)
lisp/test/test-riece-addon.el
patch
|
blob
|
history
diff --git
a/lisp/test/test-riece-addon.el
b/lisp/test/test-riece-addon.el
index
b0e39b1
..
9fae05c
100644
(file)
--- a/
lisp/test/test-riece-addon.el
+++ b/
lisp/test/test-riece-addon.el
@@
-28,15
+28,16
@@
(lunit-assert-2
case
(equal
(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
'(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))
)))