X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Fsb-introspect.asd;h=d547cc67f1a9d8ac8859794d3956f9f9e1f5e7e5;hb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;hp=a9587df16d912306907311136f0f89297b6e2406;hpb=a80a02aec71e15e1ae7bebd502399ab2b824d08b;p=sbcl.git

diff --git a/contrib/sb-introspect/sb-introspect.asd b/contrib/sb-introspect/sb-introspect.asd
index a9587df..d547cc6 100644
--- a/contrib/sb-introspect/sb-introspect.asd
+++ b/contrib/sb-introspect/sb-introspect.asd
@@ -63,5 +63,20 @@
          (make-pathname :directory (pathname-directory
                                     '#.(or *compile-file-pathname*
                                            *load-pathname*)))))
-    (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
-        (error "~S failed" 'test-op))))
+    (multiple-value-bind (soft strict pending)
+        (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+      (fresh-line)
+      (unless strict
+        #+sb-testing-contrib
+        ;; We create TEST-PASSED from a shell script if tests passed.  But
+        ;; since the shell script only `touch'es it, we can actually create
+        ;; it ahead of time -- as long as we're certain that tests truly
+        ;; passed, hence the check for SOFT.
+        (when soft
+          (with-open-file (s #p"SYS:CONTRIB;SB-INTROSPECT;TEST-PASSED"
+                             :direction :output)
+            (dolist (pend pending)
+              (format s "Expected failure: ~A~%" pend))))
+        (warn "ignoring expected failures in test-op"))
+      (unless soft
+        (error "test-op failed with unexpected failures")))))