Rove is a unit testing framework for Common Lisp applications. This is intended to be a successor of Prove.
This software is still BETA quality. The APIs will be likely to change.
(defpackage jsonrpc/tests/request
(:use :cl
:rove
:jsonrpc/request))
(in-package :jsonrpc/tests/request)
(deftest parse-message-test
(testing "invalid message"
(ok (signals (parse-message "xxx") 'jsonrpc-parse-error)
"Parse error")))
$ rove tests/request.lisp
$ rove -r spec tests/request.lisp
(ql:quickload :rove)
Optionally, install the binary with Roswell:
$ ros install rove
(ok (= a 10))
;-> ✓ Expect (= A 10) to be true.
(ok (= a 0))
;-> × 0) Expect (= A 0) to be true.
(ng (= a 10))
;-> × 0) Expect (= A 10) to be false.
(ng (= a 0))
;-> ✓ Expect (= A 0) to be false.
(ok (signals (raise-error-form)))
(ok (outputs (write-string "a") "a"))
;-> ✓ Expect (OUTPUTS (WRITE-STRING a) a) to be true.
(defmacro defun-addn (n)
(let ((m (gensym "m")))
`(defun ,(intern (format nil "ADD~A" n)) (,m)
(+ ,m ,n))))
(ok (expands '(defun-addn 10)
`(defun add10 (#:m)
(+ #:m 10))))
(pass "Okay. It's passed")
;-> ✓ Okay. It's passed
(fail "Oops. It's failed")
;-> × Oops. It's failed
(skip "Skipped for now.")
;-> - Skipped for now.
(deftest testing-length
(ok (= (length #(1 2 3)) 3)))
(deftest testing-length
(testing "array"
(ok (= (length #(1 2 3)) 3)))
(testing "list"
(ok (= (length (list 1 2 3)) 3))))
Evaluates before testing the package once. This would be useful for initialization of tests, like establishment to the DB or creating a temporary directory.
Use (defhook :before ...)
instead for running before each test.
(setup
(ensure-directories-exist *tmp-directory*))
Evaluates after testing the package once. This is executed even when the test is interrupted with some reason. This would be useful for cleanup of tests, like disconnecting from DB or deleting a temporary directory.
Use (defhook :after ...)
instead for running after each test.
(teardown
(uiop:delete-directory-tree *tmp-directory* validate t :if-does-not-exist :ignore))
Evaluates before/after running a each test in the package.
(defhook my-db-hook :before
...)
(run :myapp/tests) ; Defaults to spec-style output.
(run :myapp/tests :style :spec) ; Detailed test output.
(run :myapp/tests :style :dot) ; One-dot-per-test output.
(run :myapp/tests :style :none) ; Minimal test output with filenames only.
(run :myapp/tests :env '(("APP_ENV" . "test")))
Same as run
except it takes a pattern for test package names.
(run* "myapp/tests/*")
Coverage report can be enabled by setting the environment variable COVERAGE other than an empty string. This feature is an experimental and supported only for SBCL (The option is just ignored for other implementations).
$ COVERAGE=1 rove example.asd
Add (rove:run-suite *package*)
at the end of test files.
(defpackage #:rove-example
(:use #:cl
#:rove))
(in-package #:rove-example)
(deftest example-test
(ok (= 1 1)))
(run-suite *package*)
Developed for SBCL and tested successfully with:
Copyright (c) 2017 Eitaro Fukamachi
Licensed under the BSD 3-Clause License.