X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=fiveam.asd;h=22f118f003cdd322ff3d8ccec7ac66cbc35fbc9a;hb=4460cad7919fde8e2bf119d24807a05f1a1bf493;hp=fc0f9ca5292a39a917025bd1f940cc62a71e929b;hpb=5a4f1c1535782de0a48c3eddf1c775bd26db6757;p=fiveam.git

diff --git a/fiveam.asd b/fiveam.asd
index fc0f9ca..22f118f 100644
--- a/fiveam.asd
+++ b/fiveam.asd
@@ -1,32 +1,31 @@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
 
-(defpackage :it.bese.FiveAM.system
-  (:use :common-lisp
-        :asdf))
+(defsystem :fiveam
+  :author "Edward Marco Baringer <mb@bese.it>"
+  :depends-on (:alexandria)
+  :pathname "src/"
+  :components ((:file "packages")
+               (:file "utils" :depends-on ("packages"))
+               (:file "check" :depends-on ("packages" "utils"))
+               (:file "fixture" :depends-on ("packages"))
+               (:file "classes" :depends-on ("packages"))
+               (:file "random" :depends-on ("packages" "check"))
+               (:file "test" :depends-on ("packages" "fixture" "classes"))
+               (:file "explain" :depends-on ("packages" "utils" "check" "classes" "random"))
+               (:file "suite" :depends-on ("packages" "test" "classes"))
+               (:file "run" :depends-on ("packages" "check" "classes" "test" "explain" "suite")))
+  :in-order-to ((test-op (load-op :fiveam-test)))
+  :perform (test-op :after (op c)
+             (funcall (intern (string '#:run!) :it.bese.fiveam)
+                      :it.bese.fiveam)))
 
-(in-package :it.bese.FiveAM.system)
-
-(defsystem :FiveAM
-    :author "Edward Marco Baringer <mb@bese.it>"
-    :properties ((:test-suite-name . :it.bese.fiveam))
-    :components ((:static-file "fiveam.asd")
-                 (:module :src
-                  :components ((:file "check" :depends-on ("packages"))
-			       (:file "classes" :depends-on ("packages"))
-			       (:file "explain" :depends-on ("classes" "packages" "check"))
-			       (:file "fixture" :depends-on ("packages"))
-			       (:file "packages")
-			       (:file "run" :depends-on ("packages" "classes" "test" "suite" "check"))
-			       (:file "suite" :depends-on ("packages" "test" "classes"))
-                               (:file "random" :depends-on ("packages" "check"))
-			       (:file "test" :depends-on ("packages" "classes"))))
-		 (:module :t
-		  :components ((:file "suite")
-			       (:file "tests" :depends-on ("suite")))
-		  :depends-on (:src)))
-    :depends-on (:arnesi))
-
-(defmethod asdf:perform ((op asdf:test-op) (system (eql (find-system :FiveAM))))
-  (funcall (intern (string :run!) (string :it.bese.FiveAM)) :it.bese.FiveAM))
+(defsystem :fiveam-test
+  :author "Edward Marco Baringer <mb@bese.it>"
+  :depends-on (:fiveam)
+  :pathname "t/"
+  :components ((:file "suite")
+               (:file "tests" :depends-on ("suite"))))
 
 ;;;;@include "src/packages.lisp"
+
+;;;;@include "t/example.lisp"