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     (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))))
  35
  36 (luna-define-method test-riece-resolve-addons-2 ((case test-riece-addon))
  37   (lunit-assert-2
  38    case
  39    (condition-case error
  40        (progn
  41          (riece-resolve-addons '(test-riece-addon-5 test-riece-addon-6))
  42          nil)
  43      (error (nth 1 error)))))