[arch-commits] Commit in cl-trivial-gray-streams/trunk (run-tests.lisp)

[George Rawlinson]

    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)))