trees.asd

   1 ;;; -*- mode: lisp -*-
   2
   3 (cl:defpackage #:trees-system
   4   (:use #:cl #:asdf))
   5 (cl:in-package #:trees-system)
   6
   7 (asdf:defsystem :trees
   8   :version "0.11"
   9   :author "Nathan Froyd <froydnj@gmail.com>"
  10   :maintainer "Nathan Froyd <froydnj@gmail.com>"
  11   :description "A library for binary trees in normal and balanced flavors"
  12   :license "BSD style"
  13   :components ((:file "package")
  14                (:file "generics" :depends-on ("package"))
  15                (:file "types" :depends-on ("package"))
  16                (:file "print" :depends-on ("generics" "types"))
  17                (:file "binary-trees" :depends-on ("generics" "types"))
  18                (:file "red-black-trees" :depends-on ("types" "binary-trees"))
  19                (:file "avl-trees" :depends-on ("types" "binary-trees"))
  20                (:file "aa-trees" :depends-on ("types" "binary-trees"))
  21                (:file "iterator" :depends-on ("types" "binary-trees"))
  22                (:file "sequence" :depends-on ("iterator"))
  23                (:file "utils" :depends-on ("binary-trees"))
  24                (:static-file "LICENSE")
  25                (:static-file "README")
  26                (:static-file "NEWS")
  27                (:static-file "TODO")))
  28
  29 (defpackage :trees-tests
  30   (:use :cl))
  31
  32 (defmethod perform ((op test-op) (c (eql (find-system :trees))))
  33   (oos 'test-op 'trees-tests))
  34
  35 ;;; A tester's job is never done!
  36 (defmethod operation-done-p ((op test-op) (c (eql (find-system :trees))))
  37   nil)
  38
  39 (asdf:defsystem :trees-tests
  40   :depends-on (:trees)
  41   :version "0.3"
  42   :in-order-to ((test-op (load-op :trees-tests)))
  43   :components ((:file "rt")
  44                (:file "validate")
  45                (:file "tree-test" :depends-on ("rt" "validate"))))
  46
  47 (defmethod operation-done-p ((op test-op)
  48                              (c (eql (find-system :trees-tests))))
  49   nil)
  50
  51 (defmethod perform ((op test-op) (c (eql (find-system :trees-tests))))
  52   (or (funcall (intern "DO-TESTS" (find-package "RTEST")))
  53       (error "TEST-OP failed for TREES-TESTS")))