X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=cl-graph-test.asd;h=83c980cdad9c1474f708f3a9b50c77d55a02a1f2;hb=80af22e39e0787769c4c9f455bb1d2c95e2343b5;hp=1c58ada290bf9771928c7154418f0bbffcd96231;hpb=900a931f109598249ebc33bea50b65abf998ed0b;p=cl-graph.git

diff --git a/cl-graph-test.asd b/cl-graph-test.asd
index 1c58ada..83c980c 100644
--- a/cl-graph-test.asd
+++ b/cl-graph-test.asd
@@ -1,39 +1,44 @@
-;;; -*- 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-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))
-
-;;; ---------------------------------------------------------------------------
+               (:module 
+		"dev"
+		:components
+		((:static-file "notes.text"))))
+  :depends-on (:cl-graph :lift))
 
-(defmethod operation-done-p 
-           ((o test-op)
-            (c (eql (find-system 'moptilities-test))))
-  (values nil))
+;; 2008-09-24 - I don't know if this will work or not 
+;; i.e., will it happen at the right time wrt everything else
+#+asdf-system-connections
+(asdf:defsystem-connection cl-graph-test-and-cl-mathstats
+  :requires (cl-graph moptilities)
+  :components ((:module 
+		"unit-tests"
+		:components
+		((:file "test-graph-metrics")))))