cl-trivial-gray-streams/trunk/run-tests.lisp

   1 ;; run tests for trivial-gray-streams
   2 ;; sourced from debian
   3 ;; https://salsa.debian.org/common-lisp-team/trivial-gray-streams
   4 (require "asdf")
   5
   6 (push (uiop/os:getcwd) asdf:*central-registry*)
   7
   8 (asdf:load-system "trivial-gray-streams-test")
   9
  10 (let ((failed-tests (trivial-gray-streams-test::failed-test-names (trivial-gray-streams-test::run-tests))))
  11   ;; Filter out some expected failures (as of 2018-03-24)
  12   (setq failed-tests (delete "stream-advance-to-column" failed-tests
  13                              :test #'string=))
  14   (unless (null failed-tests)
  15     (format t "The following test(s) failed: ~{~A~^ ~}" failed-tests)
  16     (uiop:quit 1)))