Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
2950183a
Commit
2950183a
authored
Oct 15, 2021
by
Eric Timmons
Browse files
Switch to parachute for testing framework
parent
198b30a7
Changes
9
Hide whitespace changes
Inline
Side-by-side
.cl-source-registry.cache
View file @
2950183a
...
...
@@ -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"
...
...
.gitmodules
View file @
2950183a
...
...
@@ -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
clpm-test.asd
View file @
2950183a
...
...
@@ -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"
)
...
...
form-fiddle
@
e0c23599
Subproject commit e0c23599dbb8cff3e83e012f3d86d0764188ad18
parachute
@
86563473
Subproject commit 86563473dc23fb1277d35a3ad2c911a6c8e5b0da
test/package.lisp
View file @
2950183a
(
uiop:define-package
#:clpm-test
(
:use
#:cl
#:fiveam
))
(
in-package
#:clpm-test
)
(
cl:defpackage
#:clpm-test
(
:use
#:cl
)
(
:local-nicknames
(
#:para
#:parachute
)))
test/quicklisp-bundle.lisp
View file @
2950183a
(
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
))))
test/suite.lisp
View file @
2950183a
(
in-package
#:clpm-test
)
(
def-suite
:clpm
)
(
defvar
*clpm*
"clpm"
"How to run clpm"
)
test/tests.lisp
View file @
2950183a
...
...
@@ -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
))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment