Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

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")))