dev-lisp/sbcl/files/disable-tests-gentoo.patch

   1 diff -ur sbcl-0.9.14.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.9.17/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
   2 --- sbcl-0.9.17.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd  2006-06-09 09:11:29.000000000 -0500
   3 +++ sbcl-0.9.17/contrib/sb-bsd-sockets/sb-bsd-sockets.asd       2006-07-09 11:42:19.000000000 -0500
   4 @@ -42,19 +42,3 @@
   5
   6  (defmethod perform :after ((o load-op) (c (eql (find-system :sb-bsd-sockets))))
   7    (provide 'sb-bsd-sockets))
   8 -
   9 -#-win32
  10 -(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets))))
  11 -  (operate 'load-op 'sb-bsd-sockets-tests)
  12 -  (operate 'test-op 'sb-bsd-sockets-tests))
  13 -
  14 -#-win32
  15 -(defsystem sb-bsd-sockets-tests
  16 -  :depends-on (sb-rt sb-bsd-sockets #-win32 sb-posix)
  17 -  :components ((:file "tests")))
  18 -
  19 -#-win32
  20 -(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
  21 -  (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  22 -      (error "test-op failed")))
  23 -
  24 diff -ur sbcl-0.9.17.orig/contrib/sb-posix/sb-posix.asd sbcl-0.9.17/contrib/sb-posix/sb-posix.asd
  25 --- sbcl-0.9.17.orig/contrib/sb-posix/sb-posix.asd      2006-03-07 06:04:27.000000000 -0600
  26 +++ sbcl-0.9.17/contrib/sb-posix/sb-posix.asd   2006-07-09 11:43:16.000000000 -0500
  27 @@ -22,27 +22,3 @@
  28
  29  (defmethod perform :after ((o load-op) (c (eql (find-system :sb-posix))))
  30    (provide 'sb-posix))
  31 -
  32 -(defmethod perform ((o test-op) (c (eql (find-system :sb-posix))))
  33 -  (operate 'load-op 'sb-posix-tests)
  34 -  (operate 'test-op 'sb-posix-tests))
  35 -
  36 -(defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests))))
  37 -  (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  38 -  (let ((failures (funcall (intern "PENDING-TESTS" "SB-RT")))
  39 -       (ignored-failures (loop for sym being the symbols of :sb-posix-tests
  40 -                               if (search ".ERROR" (symbol-name sym))
  41 -                               collect sym)))
  42 -    (cond
  43 -      ((null failures)
  44 -       t)
  45 -      ((null (set-difference failures ignored-failures))
  46 -       (warn "~@<some POSIX implementations return incorrect error values for ~
  47 -              failing calls, but there is legitimate variation between ~
  48 -              implementations too.  If you think the errno ~
  49 -              from your platform is valid, please contact the sbcl ~
  50 -              developers; otherwise, please submit a bug report to your ~
  51 -              kernel distributor~@:>")
  52 -       t)
  53 -      (t
  54 -       (error "non-errno tests failed!")))))