cl-graph-test.asd

   1 ;;; -*- Mode: Lisp; package: CL-USER; Syntax: Common-lisp; Base: 10 -*-
   2
   3 #|
   4
   5 |#
   6
   7 (in-package :common-lisp-user)
   8 (defpackage #:asdf-cl-graph-test (:use #:cl #:asdf))
   9 (in-package #:asdf-cl-graph-test)
  10
  11 (defsystem cl-graph-test
  12   :version "0.1"
  13   :author "Gary Warren King <gwking@metabang.com>"
  14   :maintainer "Gary Warren King <gwking@metabang.com>"
  15   :licence "MIT Style License"
  16   :description "Tests for CL-Graph"
  17
  18   :components ((:module "unit-tests"
  19                         :components ((:file "package")
  20                                      (:file "test-graph" :depends-on ("package"))
  21                                      (:file "test-graph-container" :depends-on ("test-graph"))
  22                                      (:file "test-connected-components" :depends-on ("test-graph"))
  23                                      (:file "test-graph-metrics" :depends-on ("test-graph"))
  24                                      (:file "test-graph-algorithms" :depends-on ("test-graph"))
  25                                      ))
  26
  27                (:module "dev"
  28                         :components ((:static-file "notes.text"))))
  29
  30   :in-order-to ((test-op (load-op cl-graph-test)))
  31   :depends-on (cl-graph lift))
  32
  33 ;;; ---------------------------------------------------------------------------
  34
  35 (defmethod perform :after ((op test-op ) (c (eql (find-system 'cl-graph-test))))
  36   (describe
  37    (funcall
  38     (intern (symbol-name '#:run-tests) '#:lift)
  39     :suite (intern (symbol-name '#:cl-graph-test) '#:cl-graph-test))))
  40
  41 ;;; ---------------------------------------------------------------------------
  42
  43 (defmethod perform :after ((o load-op) (c (eql (find-system 'cl-graph-test))))
  44   )
  45
  46 (defmethod operation-done-p ((o test-op) (c (eql (find-system 'cl-graph-test))))
  47   ;; testing is never done...
  48   (values nil))