-;;; -*- Mode: Lisp; package: CL-USER; Syntax: Common-lisp; Base: 10 -*-
-
-#|
-
-|#
+;;; -*- Mode: Lisp; package: cl-user; Syntax: Common-lisp; Base: 10 -*-
(in-package :common-lisp-user)
(defpackage #:asdf-cl-graph-test (:use #:cl #:asdf))
:licence "MIT Style License"
:description "Tests for CL-Graph"
- :components ((:module "unit-tests"
- :components ((:file "package")
- (:file "test-graph" :depends-on ("package"))
- (:file "test-graph-container" :depends-on ("test-graph"))
- (:file "test-connected-components" :depends-on ("test-graph"))
- (:file "test-graph-metrics" :depends-on ("test-graph"))
- (:file "test-graph-algorithms" :depends-on ("test-graph"))
- ))
+ :components ((:module
+ "unit-tests"
+ :components
+ ((:file "package")
+ (:file "test-graph" :depends-on ("package"))
+ (:file "test-graph-container" :depends-on ("test-graph"))
+ (:file "test-connected-components" :depends-on ("test-graph"))
+ (:file "test-graph-metrics" :depends-on ("test-graph"))
+ (:file "test-graph-algorithms" :depends-on ("test-graph"))
+ ))
- (:module "dev"
- :components ((:static-file "notes.text"))))
-
- :in-order-to ((test-op (load-op cl-graph-test)))
+ (:module
+ "dev"
+ :components
+ ((:static-file "notes.text"))))
:depends-on (cl-graph lift))
-
-;;; ---------------------------------------------------------------------------
-
-(defmethod perform :after ((op test-op ) (c (eql (find-system 'cl-graph-test))))
- (describe
- (funcall
- (intern (symbol-name '#:run-tests) '#:lift)
- :suite (intern (symbol-name '#:cl-graph-test) '#:cl-graph-test))))
-
-;;; ---------------------------------------------------------------------------
-
-(defmethod perform :after ((o load-op) (c (eql (find-system 'cl-graph-test))))
- )
-
-(defmethod operation-done-p ((o test-op) (c (eql (find-system 'cl-graph-test))))
- ;; testing is never done...
- (values nil))