Commit 2950183a authored by Eric Timmons's avatar Eric Timmons
Browse files

Switch to parachute for testing framework

parent 198b30a7
......@@ -86,6 +86,7 @@
"ext/file-attributes/file-attributes.asd"
"ext/fiveam/fiveam.asd"
"ext/flexi-streams/flexi-streams.asd"
"ext/form-fiddle/form-fiddle.asd"
"ext/global-vars/global-vars.asd"
"ext/hunchentoot/hunchentoot.asd"
"ext/ieee-floats/ieee-floats.asd"
......@@ -112,6 +113,7 @@
"ext/named-readtables/named-readtables.asd"
"ext/nibbles/nibbles.asd"
"ext/osicat/osicat.asd"
"ext/parachute/parachute.asd"
"ext/parse-declarations/parse-declarations-1.0.asd"
"ext/parse-float/parse-float.asd"
"ext/parse-number/parse-number.asd"
......
......@@ -289,3 +289,9 @@
[submodule "ext/trivial-macroexpand-all"]
path = ext/trivial-macroexpand-all
url = https://github.com/cbaggers/trivial-macroexpand-all.git
[submodule "ext/parachute"]
path = ext/parachute
url = https://github.com/Shinmera/parachute
[submodule "ext/form-fiddle"]
path = ext/form-fiddle
url = https://github.com/Shinmera/form-fiddle
......@@ -11,7 +11,7 @@
:description "Tests for CLPM"
:license "BSD-2-Clause"
:pathname "test/"
:depends-on (#:fiveam #:hunchentoot)
:depends-on (#:parachute #:hunchentoot)
:serial t
:components
((:file "package")
......
Subproject commit e0c23599dbb8cff3e83e012f3d86d0764188ad18
Subproject commit 86563473dc23fb1277d35a3ad2c911a6c8e5b0da
(uiop:define-package #:clpm-test
(:use #:cl
#:fiveam))
(in-package #:clpm-test)
(cl:defpackage #:clpm-test
(:use #:cl)
(:local-nicknames (#:para #:parachute)))
(in-package #:clpm-test)
(test (quicklisp-bundle :suite :clpm)
(para:define-test quicklisp-bundle
(uiop:with-current-directory ((asdf:system-relative-pathname :clpm "test/quicklisp-bundle/"))
(finishes
(uiop:run-program `(,*clpm* "bundle" "install" "-y" "--no-resolve")
:output :interactive
:error-output :interactive)
(uiop:run-program `(,*clpm* "bundle" "exec" "--" "sbcl" "--non-interactive" "--no-userinit" "--no-sysinit" "--eval" "(require :asdf)" "--eval" "(asdf:load-system :quicklisp-bundle)" "--quit")
:output :interactive
:error-output :interactive))))
(para:finish
(uiop:run-program `(,*clpm* "bundle" "install" "-y" "--no-resolve")
:output :interactive
:error-output :interactive))
(para:finish
(uiop:run-program `(,*clpm* "bundle" "exec" "--" "sbcl" "--non-interactive" "--no-userinit" "--no-sysinit" "--eval" "(require :asdf)" "--eval" "(asdf:load-system :quicklisp-bundle)" "--quit")
:output :interactive
:error-output :interactive))))
(in-package #:clpm-test)
(def-suite :clpm)
(defvar *clpm* "clpm"
"How to run clpm")
......@@ -20,4 +20,4 @@
(defun run-tests-with-server (&key (clpm "clpm"))
(let ((*clpm* (namestring clpm)))
(with-server ()
(fiveam:run! :clpm))))
(para:test :clpm-test))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment