asdf test-op added

(asdf:operate 'asdf:test-op :parenscript)

diff --git a/parenscript.asd b/parenscript.asd
index 4514ab9..17573b7 100644 (file)
--- a/parenscript.asd
+++ b/parenscript.asd
@@ -29,6 +29,9 @@
 (defmethod asdf:perform :after ((op asdf:load-op) (system (eql (asdf:find-system :parenscript)))) 
   (pushnew :parenscript cl:*features*))
 
+(defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript))))
+  (asdf:operate 'asdf:test-op :parenscript.test))
+
 (defsystem :parenscript.test
   :depends-on (:parenscript :fiveam :cl-ppcre)
   :components ((:module :t
@@ -36,3 +39,8 @@
                              (:file "test" :depends-on ("test-package"))
                              (:file "ref2test" :depends-on ("test"))
                              (:file "reference-tests" :depends-on ("test"))))))
+
+(defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript.test))))
+  (asdf:operate 'asdf:load-op :parenscript.test)
+  (funcall (intern (symbol-name :run-tests)
+                   (find-package :js-test))))

diff --git a/t/ref2test.lisp b/t/ref2test.lisp
index 84c3dde..c6aea0c 100644 (file)
--- a/t/ref2test.lisp
+++ b/t/ref2test.lisp
@@ -99,9 +99,7 @@
                          built (concatenate 'string built
                                             (when (not (empty-p built))
                                               (list #\Newline))
-                                            line))))))
-        (format out-stream "~%(run-tests)~%")))))
+                                            line))))))))))
 
 
-
-;; (make-reference-tests-dot-lisp)
\ No newline at end of file
+(make-reference-tests-dot-lisp)
\ No newline at end of file

diff --git a/t/reference-tests.lisp b/t/reference-tests.lisp
index 71a0039..6605624 100644 (file)
--- a/t/reference-tests.lisp
+++ b/t/reference-tests.lisp
@@ -480,5 +480,3 @@ x = a + b + c;")
     + ' looks like this.</div>';
 }")
 
-
-(run-tests)