Date: Friday, May 13, 2022 @ 02:13:35 Author: grawlinson Revision: 1199864
upgpkg: cl-trivial-gray-streams Forgot to add the actual test script to version control. Whoops. Added: cl-trivial-gray-streams/trunk/run-tests.lisp ----------------+ run-tests.lisp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) Added: run-tests.lisp =================================================================== --- run-tests.lisp (rev 0) +++ run-tests.lisp 2022-05-13 02:13:35 UTC (rev 1199864) @@ -0,0 +1,16 @@ +;; run tests for trivial-gray-streams +;; sourced from debian +;; https://salsa.debian.org/common-lisp-team/trivial-gray-streams +(require "asdf") + +(push (uiop/os:getcwd) asdf:*central-registry*) + +(asdf:load-system "trivial-gray-streams-test") + +(let ((failed-tests (trivial-gray-streams-test::failed-test-names (trivial-gray-streams-test::run-tests)))) + ;; Filter out some expected failures (as of 2018-03-24) + (setq failed-tests (delete "stream-advance-to-column" failed-tests + :test #'string=)) + (unless (null failed-tests) + (format t "The following test(s) failed: ~{~A~^ ~}" failed-tests) + (uiop:quit 1)))
