1 ;;; -*- Mode: Lisp; package: CL-USER; Syntax: Common-lisp; Base: 10 -*-
7 (in-package :common-lisp-user)
8 (defpackage #:asdf-cl-graph-test (:use #:cl #:asdf))
9 (in-package #:asdf-cl-graph-test)
11 (defsystem cl-graph-test
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"
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"))
28 :components ((:static-file "notes.text"))))
30 :in-order-to ((test-op (load-op cl-graph-test)))
31 :depends-on (cl-graph lift))
33 ;;; ---------------------------------------------------------------------------
35 (defmethod perform :after ((op test-op ) (c (eql (find-system 'cl-graph-test))))
38 (intern (symbol-name '#:run-tests) '#:lift)
39 :suite (intern (symbol-name '#:cl-graph-test) '#:cl-graph-test))))
41 ;;; ---------------------------------------------------------------------------
43 (defmethod perform :after ((o load-op) (c (eql (find-system 'cl-graph-test))))
46 (defmethod operation-done-p ((o test-op) (c (eql (find-system 'cl-graph-test))))
47 ;; testing is never done...