Bumped version and copyright; cleanup formatting in system defs; standardized test-op

[cl-graph.git] / cl-graph.asd

diff --git a/cl-graph.asd b/cl-graph.asd
index d0e14b5..6ef0b94 100644 (file)
--- a/cl-graph.asd
+++ b/cl-graph.asd
@@ -1,10 +1,6 @@
-;;; -*- 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)
+(in-package #:common-lisp-user)
 (defpackage #:asdf-cl-graph (:use #:cl #:asdf))
 (in-package #:asdf-cl-graph)
 
@@ -21,61 +17,79 @@ instructions."))
 (asdf:operate 'asdf:load-op 'asdf-system-connections)
 
 (defsystem cl-graph
-  :version "0.8"
+  :version "0.8.1"
   :author "Gary Warren King <gwking@metabang.com>"
   :maintainer "Gary Warren King <gwking@metabang.com>"
   :licence "MIT Style License"
   :description "Graph manipulation utilities for Common Lisp"
-  :components ((:module "dev"
-                        :components ((:file "package")
-                                     (:file "api"
-                                            :depends-on ("package"))
-                                     (:file "macros"
-                                            :depends-on ("package"))
-                                     (:file "graph"
-                                            :depends-on ("api" "macros"))
-                                     (:file "graph-container"
-                                            :depends-on ("graph"))
-                                     (:file "graph-matrix"
-                                            :depends-on ("graph"))
-                                     (:file "graph-metrics"
-                                            :depends-on ("graph"))
-                                     (:file "graph-algorithms"
-                                            :depends-on ("graph"))
+  :components ((:module 
+               "dev"
+               :components 
+               ((:file "package")
+                (:file "api"
+                       :depends-on ("package"))
+                (:file "macros"
+                       :depends-on ("package"))
+                (:file "graph"
+                       :depends-on ("api" "macros"))
+                (:file "graph-container"
+                       :depends-on ("graph"))
+                (:file "graph-matrix"
+                       :depends-on ("graph"))
+                (:file "graph-metrics"
+                       :depends-on ("graph"))
+                (:file "graph-algorithms"
+                       :depends-on ("graph"))
                                      
-                                     (:static-file "notes.text")
+                (:static-file "notes.text")
 
-                                     (:module "graphviz" :depends-on ("graph")
-                                              :components ((:file "graphviz-support")))))
-               (:module "website"
-                        :components ((:module "source"
-                                              :components ((:static-file "index.lml"))))))
-  
+                (:module "graphviz" :depends-on ("graph")
+                         :components ((:file "graphviz-support")))))
+               (:module 
+               "website"
+               :components 
+               ((:module "source"
+                         :components ((:static-file "index.lml"))))))
+  :in-order-to ((test-op (load-op cl-graph-test)))
+  :perform (test-op :after (op c)
+                    (describe 
+                    (funcall (intern (symbol-name '#:run-tests) :lift) 
+                             :suite '#:cl-graph-test)))
   :depends-on (metatilities 
-               cl-containers
-               metabang-bind
-               cl-mathstats
-               asdf-system-connections          ; makes ASDF-Install get this automatically
-               ))
+              cl-containers
+              metabang-bind
+              cl-mathstats
+              ;; makes ASDF-Install get this automatically
+              asdf-system-connections
+              ))
 
-;;; ---------------------------------------------------------------------------
+(defmethod operation-done-p 
+           ((o test-op) (c (eql (find-system 'cl-graph))))
+  (values nil))
 
+#+asdf-system-connections
 (asdf:defsystem-connection cl-graph-and-cl-variates
   :requires (cl-graph cl-variates)
-  :components ((:module "dev"
-                        :components ((:file "graph-and-variates")
-                                     (:file "graph-generation"
-                                            :depends-on ("graph-and-variates"))))))
+  :components ((:module 
+               "dev"
+               :components
+               ((:file "graph-and-variates")
+                (:file "graph-generation"
+                       :depends-on ("graph-and-variates"))))))
 
+#+asdf-system-connections
 (asdf:defsystem-connection cl-graph-and-cl-graphviz
   :requires (cl-graph cl-graphviz)
-  :components ((:module "dev"
-                        :components
-                        ((:module "graphviz"
-                                  :components
-                                  ((:file "graphviz-support-optional")))))))
+  :components ((:module 
+               "dev"
+               :components
+               ((:module "graphviz"
+                         :components
+                         ((:file "graphviz-support-optional")))))))
 
+#+asdf-system-connections
 (asdf:defsystem-connection cl-graph-and-metacopy
   :requires (cl-graph metacopy)
-  :components ((:module "dev"
-                        :components ((:file "copying")))))
+  :components ((:module 
+               "dev"
+               :components ((:file "copying")))))