-;;; -*- 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))
-(in-package #:asdf-cl-graph-test)
+(defpackage #:cl-graph-test-system (:use #:cl #:asdf))
+(in-package #:cl-graph-test-system)
(defsystem cl-graph-test
- :version "0.1"
:author "Gary Warren King <gwking@metabang.com>"
:maintainer "Gary Warren King <gwking@metabang.com>"
:licence "MIT Style License"
:description "Tests for CL-Graph"
-
- :components ((:module "unit-tests"
- :components ((:file "package")
- (:file "test*" :depends-on ("package"))))
+ :components ((:module
+ "setup"
+ :pathname "unit-tests/"
+ :components
+ ((:file "package")
+ (:file "test-graph" :depends-on ("package"))
+ ))
+ (:module
+ "unit-tests"
+ :pathname "unit-tests/"
+ :depends-on ("setup")
+ :components
+ ((:file "test-graph-container")
+ (:file "test-connected-components")
+ (:file "test-graph-metrics")
+ ;;(:file "test-graph-algorithms")
+ (:file "test-api")
+ ))
- (:module "dev"
- :components ((:static-file "notes.text"))))
-
- :in-order-to ((test-op (load-op moptilities-test)))
-
- :perform (test-op :after (op c)
- (describe
- (funcall
- (intern (symbol-name '#:run-tests) '#:lift)
- :suite (intern (symbol-name '#:cl-graph-test) '#:cl-graph-test))))
- :depends-on (cl-graph lift))
-
-;;; ---------------------------------------------------------------------------
-
-(defmethod operation-done-p
- ((o test-op)
- (c (eql (find-system 'moptilities-test))))
- (values nil))
+ (:module
+ "dev"
+ :components
+ ((:static-file "notes.text"))))
+ :depends-on (:cl-graph :lift))