Diff of /series.asd [813f28] .. [ae6f1e]  Maximize  Restore

Switch to side-by-side view

--- a/series.asd
+++ b/series.asd
@@ -1,7 +1,7 @@
 ;;; -*- Mode: lisp -*-
 
 (defpackage #:series-system
-  (:use #:common-lisp))
+  (:use #:common-lisp #:asdf))
 
 (in-package #:series-system)
 
@@ -15,6 +15,21 @@
     :components ((:file "s-package")
                  (:file "s-code")))
 
+(defmethod perform ((op test-op) (c (eql (find-system :series))))
+  (oos 'test-op 'series-tests))
+
 (asdf:defsystem series-tests
-    :depends-on (series)
-    :components ((:file "s-test")))
+  :depends-on (series)
+  :version "2.2.11"			; Same as series
+  :in-order-to ((test-op (load-op :series)))
+  :components
+  ((:file "s-test")))
+
+(defmethod operation-done-p ((op test-op)
+                             (c (eql (find-system :series-tests))))
+  nil)
+
+
+(defmethod perform ((op test-op) (c (eql (find-system :series-tests))))
+  (or (funcall (intern "DO-TESTS" (find-package "RT")))
+      (error "TEST-OP failed for SERIES-TESTS")))

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks