alexandria-tests.asd

   1 (defsystem alexandria-tests
   2   :depends-on (:alexandria #+sbcl :sb-rt #-sbcl :rt)
   3   :components ((:file "tests")))
   4
   5 (defmethod operation-done-p
   6     ((o test-op) (c (eql (find-system :alexandria-tests))))
   7   nil)
   8
   9 (defmethod perform ((o test-op) (c (eql (find-system :alexandria-tests))))
  10   (flet ((run-tests (&rest args)
  11            (apply (intern (string '#:run-tests) '#:alexandria-tests) args)))
  12     (run-tests :compiled nil)
  13     (run-tests :compiled t)))