nclack-tests.asd

(in-package :cl-user)
(defpackage :nclack-test-system
  (:use :cl :asdf))
(in-package :nclack-test-system)

(defsystem nclack-tests
  :depends-on (:nclack
               :fiveam
               :flexi-streams
               :cl-fad
               :optima)
  :pathname "tests/"
  :serial t
  :components ((:file "packages")
               (:file "conf")
               (:file "utils")
               (:file "runner")
               (:file "parser")
               (:file "request")))

(defmethod perform ((op test-op) (system (eql (find-system :nclack))))
  (nclack-tests:test-runner)
  
  ;; Approach suggested by Svante
  ;; (compile-file (asdf:system-relative-pathname
  ;;                :nclack-tests "tests/packages.lisp"))
  ;; (funcall (find-symbol "test-runner" :nclack-tests))
  )

nclack.asd

(in-package :cl-user)
(defpackage :nclack-system
  (:use :cl :asdf))
(in-package :nclack-system)

(defsystem nclack
  :name "nclack"
  :description "not clack"
  :long-description "An http server that complies with the clack interface, hopefully."
  :author "Javier Olaechea <[email protected]>"
  :version "20130604"
  :serial t
  :license "<3"
  :depends-on (:iolib
               :cl-ppcre
               :alexandria
               :optima)

  :pathname "src/"
  :components ((:file "packages")
               (:file "nclack")
               (:module "request"
                :components
                ((:file "interface")
                 (:file "implementation")
                 (:file "parser"))))
  :in-order-to ((test-op (test-op nclack-tests))))