[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-devel
Subject:    [Sbcl-devel] Test report, 1.0.38.7, linux/ppc and linux/x86-64
From:       Alastair Bridgewater <alastair.bridgewater () gmail ! com>
Date:       2010-05-20 20:14:01
Message-ID: AANLkTikfk47ar6-UTgAqzEQIxqV_3pUZkwiH0cXL-DLK () mail ! gmail ! com
[Download RAW message or body]

Hello all,

It's been about a month, and a fairly quiet one as far as commits go,
so let's try this again.

Once again, there is a patch attached to this mail, showing what
changes I've made from upstream.

There are three logical sets of changes.  First, the addition of
options passed to the child SBCL for running impure tests, bringing
the options inline with those used to invoke the parent SBCL in the
first place.  Second, the use of /dev/null as standard input for the
child SBCL, avoiding sharing stdin with the parent, thus taking a
different path through spawn().  Third, re-enabling the (:RUN-PROGRAM
:INHERIT-STDIN) test, which no longer hangs.

The difference between 1.0.37.59 and 1.0.38.7 with respect to the PPC
tests worries me somewhat, though I expect that the changes have more
to do with the test infrastructure than with SBCL proper.
Investigation on this matter will continue.

--Alastair Bridgewater

Test suite results, Linux/ppc:

Finished running tests.
Status:
 Expected failure:    float.pure.lisp / (SCALE-FLOAT-OVERFLOW BUG-372)
 Expected failure:    float.pure.lisp / (ADDITION-OVERFLOW BUG-372)
 Unhandled error      float.pure.lisp
 Expected failure:    debug.impure.lisp / (UNDEFINED-FUNCTION BUG-346)
 Expected failure:    debug.impure.lisp / (UNDEFINED-FUNCTION BUG-353)
 Expected failure:    debug.impure.lisp / (TRACE ENCAPSULATE NIL)
 Expected failure:    debug.impure.lisp / (TRACE-RECURSIVE ENCAPSULATE NIL)
 Invalid exit status: dynamic-extent.impure.lisp
 Expected failure:    packages.impure.lisp / USE-PACKAGE-CONFLICT-SET
 Expected failure:    packages.impure.lisp / IMPORT-SINGLE-CONFLICT
 Unexpected success:  run-program.impure.lisp / (RUN-PROGRAM INHERIT-STDIN)
 Invalid exit status: room.test.sh
test failed, expected 104 return code, got 1

Test suite results, Linux/x86-64:

Finished running tests.
Status:
 Expected failure:    callback.impure.lisp / UNDERFLOW-DETECTION
 Unexpected success:  debug.impure.lisp / (UNDEFINED-FUNCTION BUG-353)
 Unexpected success:  debug.impure.lisp / (THROW NO-SUCH-TAG)
 Expected failure:    packages.impure.lisp / USE-PACKAGE-CONFLICT-SET
 Expected failure:    packages.impure.lisp / IMPORT-SINGLE-CONFLICT
 Unexpected success:  run-program.impure.lisp / (RUN-PROGRAM INHERIT-STDIN)
ok
//apparent success (reached end of run-tests.sh normally)

Changes made to base system:

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index 29fbd72..43212da 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -155,7 +155,7 @@
 ;; of which we can be notified asynchronously by providing a status hook.
 (with-test (:name (:run-program :inherit-stdin)
             :fails-on :sbcl)
-  (error "Hangs at least on threaded Darwin and threaded x86-64/Linux.")
+  ;(error "Hangs at least on threaded Darwin and threaded x86-64/Linux.")
   (let (stopped)
     (flet ((status-hook (proc)
              (case (sb-ext:process-status proc)
diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 67ba274..d2942b1 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -81,18 +81,21 @@
   ;; We used to fork() for POSIX platforms, and use this for Windows.
   ;; However, it seems better to use the same solution everywhere.
   (process-exit-code
-   (sb-ext:run-program
-    (first *POSIX-ARGV*)
-    (append
-     (list "--core" SB-INT:*CORE-STRING*
-           "--noinform"
-           "--no-sysinit"
-           "--no-userinit")
-     (loop for form in (append load-forms forms)
-           collect "--eval"
-           collect (write-to-string form)))
-    :output sb-sys:*stdout*
-    :input sb-sys:*stdin*)))
+   (#-win32 with-open-file #-win32 (devnull "/dev/null") #+win32 progn
+     (sb-ext:run-program
+      (first *POSIX-ARGV*)
+      (append
+       (list "--core" SB-INT:*CORE-STRING*
+             "--noinform"
+             "--no-sysinit"
+             "--no-userinit"
+             "--noprint"
+             "--disable-debugger")
+       (loop for form in (append load-forms forms)
+             collect "--eval"
+             collect (write-to-string form)))
+      :output sb-sys:*stdout*
+      :input #-win32 devnull #+win32 sb-sys:*stdin*))))

 (defun run-impure-in-child-sbcl (test-file test-code)
   (run-in-child-sbcl

------------------------------------------------------------------------------

_______________________________________________
Sbcl-devel mailing list
Sbcl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-devel
[prev in list] [next in list] [prev in thread] [next in thread]