Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

don't run tests when t-clack is just loaded. from now on,

(asdf:test-system :clack) or (asdf:test-system :t-clack) are proper way
to test Clack.
  • Loading branch information...
commit 6abb1071da446059e1755ceef1f8a5d8f52320b6 1 parent 9807cfd
@fukamachi authored
Showing with 24 additions and 16 deletions.
  1. +1 −1  clack.asd
  2. +23 −15 t-clack.asd
View
2  clack.asd
@@ -108,4 +108,4 @@
:fill-pointer t)))
(setf (fill-pointer seq) (read-sequence seq stream))
seq)))
- :in-order-to ((test-op (load-op t-clack))))
+ :in-order-to ((test-op (test-op t-clack))))
View
38 t-clack.asd
@@ -17,6 +17,14 @@
(:use :cl :asdf))
(in-package :t-clack-asd)
+(defclass asdf::test-file (asdf:cl-source-file) ())
+(defmethod asdf:perform ((op asdf:load-op) (c asdf::test-file))
+ ;; do nothing
+ )
+(defmethod asdf:perform ((op asdf:test-op) (c asdf::test-file))
+ (asdf:perform (make-instance 'asdf:load-op)
+ (change-class c 'asdf:cl-source-file)))
+
(defsystem t-clack
:depends-on (:clack
:clack-test
@@ -28,20 +36,20 @@
:components
((:module "core"
:components
- ((:file "component")
- (:file "middleware")
- (:file "builder")
- (:file "response")
- (:file "request")
- (:file "handler/hunchentoot")
- (:file "app/file")
- (:file "app/urlmap")
- (:file "middleware/static")
- (:file "middleware/conditional")
- (:file "middleware/session")
- (:file "middleware/logger")
- (:file "middleware/stdout")))
+ ((:test-file "component")
+ (:test-file "middleware")
+ (:test-file "builder")
+ (:test-file "response")
+ (:test-file "request")
+ (:test-file "handler/hunchentoot")
+ (:test-file "app/file")
+ (:test-file "app/urlmap")
+ (:test-file "middleware/static")
+ (:test-file "middleware/conditional")
+ (:test-file "middleware/session")
+ (:test-file "middleware/logger")
+ (:test-file "middleware/stdout")))
(:module "util"
:components
- ((:file "route"))))))
- :perform (load-op :after (op c) (asdf:clear-system c)))
+ ((:test-file "route")))))))
+
Please sign in to comment.
Something went wrong with that request. Please try again.