mirror of
https://github.com/vale981/lack
synced 2025-03-05 17:31:39 -05:00
30 lines
1.2 KiB
Common Lisp
Executable file
30 lines
1.2 KiB
Common Lisp
Executable file
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#|
|
|
exec ros -Q -- $0 "$@"
|
|
|#
|
|
|
|
(unless (find-package :uiop)
|
|
(ql:quickload :uiop :silent t))
|
|
|
|
(ql:quickload '(:prove :cl-coveralls :split-sequence) :silent t)
|
|
|
|
(defun main (&rest test-files)
|
|
(labels ((run-tests ()
|
|
(not
|
|
(some #'null
|
|
(mapcar (lambda (test-file)
|
|
(let ((test-file (pathname test-file)))
|
|
(unless (or (probe-file test-file)
|
|
(string= (pathname-type test-file) "asd"))
|
|
(error "~S is not an asd file." test-file))
|
|
(load test-file)
|
|
(prove:run-test-system (asdf:find-system (pathname-name test-file)))))
|
|
test-files)))))
|
|
(or (if (uiop:getenv "COVERALLS")
|
|
(coveralls:with-coveralls (:exclude
|
|
(split-sequence:split-sequence #\: (or (uiop:getenv "COVERAGE_EXCLUDE") "")
|
|
:remove-empty-subseqs t))
|
|
(run-tests))
|
|
(run-tests))
|
|
(uiop:quit -1))))
|