Should hunchentoot be started for weblocks test suite to work?
BTW, in the test/weblocks-test.lisp:
(defun test-weblocks (&optional (verbose t))
"[...]"
;; XXX better results combination
(let ((results (list (run-tests :suite 'weblocks-suite)
(run-tests :suite 'weblocks-store-test::store-suite))))
(when verbose
(mapc #'describe results))
(values-list results)))
lift test suites seems to be are named by strings, at least the same
test suites may be run by (run-tests :suite :weblocks-suite)
(run-tests :suite :store-suite). If so, it may be better to
rename :store-suite to :weblocks-store-suite.
To combine results, you may combine test suties. Define a super-suite
which includes both test suites:
(deftestsuite weblocks-super-ensure () ())
(deftestsuite store-suite () (weblocks-super-suite))
(deftestsuite weblocks-suite () (weblocks-super-suite))
(run-tests :suite :weblocks-super-suite)
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To view this discussion on the web visit
https://groups.google.com/d/msg/weblocks/-/WFxcbaDpldkJ.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en.
