mirror of
https://github.com/vale981/lack
synced 2025-03-05 17:31:39 -05:00
22 lines
727 B
Common Lisp
Executable file
22 lines
727 B
Common Lisp
Executable file
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#|
|
|
exec ros -Q -- $0 "$@"
|
|
|#
|
|
|
|
(unless (find-package :uiop)
|
|
(ql:quickload :uiop :silent t))
|
|
|
|
(ql:quickload :prove :silent t)
|
|
|
|
(defun main (&rest test-files)
|
|
(when (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))
|
|
(uiop:quit -1)))
|