3 (defun test-riece-addon-1-requires ()
5 (provide 'test-riece-addon-1)
7 (defun test-riece-addon-2-requires ()
8 '(test-riece-addon-3 test-riece-addon-4))
9 (provide 'test-riece-addon-2)
11 (defun test-riece-addon-3-requires ())
12 (provide 'test-riece-addon-3)
14 (defun test-riece-addon-4-requires ())
15 (provide 'test-riece-addon-4)
17 (defun test-riece-addon-5-requires ()
18 '(test-riece-addon-6))
19 (provide 'test-riece-addon-5)
21 (defun test-riece-addon-6-requires ()
22 '(test-riece-addon-5))
23 (provide 'test-riece-addon-6)
25 (luna-define-class test-riece-addon (lunit-test-case))
27 (luna-define-method test-riece-resolve-addons-1 ((case test-riece-addon))
31 (mapcar #'car (riece-resolve-addons
32 '(test-riece-addon-1 test-riece-addon-2)))
33 '(test-riece-addon-3 test-riece-addon-4
34 test-riece-addon-2 test-riece-addon-1))))
36 (luna-define-method test-riece-resolve-addons-2 ((case test-riece-addon))
41 (riece-resolve-addons '(test-riece-addon-5 test-riece-addon-6))
43 (error (nth 1 error)))))