;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
;;;
;;; trivial-garbage.asd --- ASDF system definition for trivial-garbage.
;;;
;;; This software is placed in the public domain by Luis Oliveira
;;; <loliveira@common-lisp.net> and is provided with absolutely no
;;; warranty.

#-(or cmu scl sbcl allegro clisp openmcl corman lispworks ecl)
(error "Sorry, your Lisp is not supported by trivial-garbage.")

(defsystem trivial-garbage
  :description "Portable finalizers, weak hash-tables and weak pointers."
  :author "Luis Oliveira <loliveira@common-lisp.net>"
  :version "0.19"
  :licence "Public Domain"
  :components ((:file "trivial-garbage")))

(defmethod perform ((op test-op) (sys (eql (find-system :trivial-garbage))))
  (operate 'test-op :trivial-garbage-tests))

(defsystem trivial-garbage-tests
  :description "Unit tests for TRIVIAL-GARBAGE."
  :depends-on (trivial-garbage rt)
  :components ((:file "tests")))

(defmethod perform ((op test-op)
                    (sys (eql (find-system :trivial-garbage-tests))))
  (operate 'load-op :trivial-garbage-tests)
  (funcall (find-symbol (string '#:do-tests) '#:rtest)))

;; vim: ft=lisp et