cgit.sxemacs.org Git - riece/blob - lisp/test/test-riece-addon.el

   1 (require 'riece-addon)
   2
   3 (defun test-riece-addon-1-requires ()
   4   '(test-riece-addon-2))
   5 (provide 'test-riece-addon-1)
   6
   7 (defun test-riece-addon-2-requires ()
   8   '(test-riece-addon-3 test-riece-addon-4))
   9 (provide 'test-riece-addon-2)
  10
  11 (defun test-riece-addon-3-requires ())
  12 (provide 'test-riece-addon-3)
  13
  14 (defun test-riece-addon-4-requires ())
  15 (provide 'test-riece-addon-4)
  16
  17 (defun test-riece-addon-5-requires ()
  18   '(test-riece-addon-6))
  19 (provide 'test-riece-addon-5)
  20
  21 (defun test-riece-addon-6-requires ()
  22   '(test-riece-addon-5))
  23 (provide 'test-riece-addon-6)
  24
  25 (luna-define-class test-riece-addon (lunit-test-case))
  26
  27 (luna-define-method test-riece-resolve-addons-1 ((case test-riece-addon))
  28   (lunit-assert-2
  29    case
  30    (equal
  31     (riece-resolve-addons '(test-riece-addon-1 test-riece-addon-2))
  32     '(test-riece-addon-3 test-riece-addon-4
  33                          test-riece-addon-2 test-riece-addon-1))))
  34
  35 (luna-define-method test-riece-resolve-addons-2 ((case test-riece-addon))
  36   (lunit-assert-2
  37    case
  38    (equal
  39     (condition-case error
  40         (riece-resolve-addons '(test-riece-addon-5 test-riece-addon-6))
  41       (error (nth 1 error)))
  42     "Circular add-on dependency found")))