Skip to content
Browse files

Allow use of SB-RT's mechanism for expected test failures in contribs

... In RT, use the list of expected test failures not just for
    debugging output, but return as a primary result only whether
    there are unexpected failures, with additional result values for
    details on expected failures.

... Tweak so that the `test-passed' file, if
    non-empty, can indicate a `successful' build of the contrib with
    only known failures.

This mechanism is meant to follow in the footsteps of SBCL's main
test suite's mechanism for known failures, and is arguably not in
the original spirit of contribs as user contributions that must
build perfectly or fail to install entirely.  However, for parts of
contrib/ which are very commonly used as a part of SBCL, it is hoped
that this new mechanism will aid work toward bug fixes in those
contribs rather than de-emphasize it.
  • Loading branch information...
1 parent 1d06300 commit 1483e561a090d9f07687da27f8dd10fcd4152be1 @lichtblau lichtblau committed Sep 24, 2012
Showing with 28 additions and 4 deletions.
  1. +2 −1 contrib/
  2. +6 −0 contrib/sb-bsd-sockets/tests.lisp
  3. +2 −3 contrib/sb-rt/rt.lisp
  4. +18 −0
3 contrib/
@@ -32,7 +32,8 @@ all: $(EXTRA_ALL_TARGETS)
$(SBCL) --eval '(defvar *system* "$(SYSTEM)")' --load ../asdf-stub.lisp --eval '(exit)'
test: all
- echo "(asdf:operate (quote asdf:load-op) :$(SYSTEM))" \
+ echo "(pushnew :sb-testing-contrib *features*)" \
+ "(asdf:operate (quote asdf:load-op) :$(SYSTEM))" \
"(asdf:operate (quote asdf:test-op) :$(SYSTEM))" | \
$(SBCL) --eval '(load "../asdf/asdf")'
6 contrib/sb-bsd-sockets/tests.lisp
@@ -3,6 +3,12 @@
(in-package :sb-bsd-sockets-test)
+(defmacro deftest* ((name &key fails-on) form &rest results)
+ `(progn
+ (when (sb-impl::featurep ',fails-on)
+ (pushnew ',name sb-rt::*expected-failures*))
+ (deftest ,name ,form ,@results)))
;;; a real address
(deftest make-inet-address
(equalp (make-inet-address "") #(127 0 0 1))
5 contrib/sb-rt/rt.lisp
@@ -248,7 +248,6 @@
~:@(~{~<~% ~1:;~S~>~
~^, ~}~)."
(length new-failures)
- new-failures)))
- ))
+ new-failures)))))
(finish-output s)
- (null pending))))
+ (values (null new-failures) (null pending) pending))))
@@ -82,6 +82,24 @@ for i in $contribs_to_build; do
fi | tee output/building-contrib.`basename $i`
+# Otherwise report expected failures:
+for dir in contrib/*; do
+ f="$dir/test-passed"
+ if test -f "$f" && grep -i fail "$f" >/dev/null; then
+ cat <<EOF
+Note: Test suite failures which are expected for this combination of
+platform and features have been ignored:
+ fi
+ echo " $dir"
+ (unset IFS; while read line; do echo " $line"; done <"$f")
+ fi
# Sometimes people used to see the "No tests failed." output from the last
# DEFTEST in contrib self-tests and think that's all that is. So...

0 comments on commit 1483e56

Please sign in to comment.
Something went wrong with that request. Please try again.