Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20177/tests
Modified Files:
stream.pure.lisp external-format.impure.lisp
callback.impure.lisp
Log Message:
0.9.15.10:
win32 changes to the test suite from Yaroslav Kavenchuk.
Index: stream.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/stream.pure.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- stream.pure.lisp 15 Mar 2006 04:21:08 -0000 1.16
+++ stream.pure.lisp 4 Aug 2006 14:34:46 -0000 1.17
@@ -261,7 +261,7 @@
(frob 'base-char)
(frob 'nil))
-(with-open-file (s "/dev/null" :element-type '(signed-byte 48))
+(with-open-file (s #-win32 "/dev/null" #+win32 "nul" :element-type '(signed-byte 48))
(assert (eq :eof (read-byte s nil :eof))))
(let* ((is (make-string-input-stream "foo"))
@@ -292,7 +292,7 @@
(assert (string= (get-output-stream-string os) "foo")))
(with-standard-io-syntax
- (open "/dev/null"))
+ (open #-win32 "/dev/null" #+win32 "nul" ))
;;; PEEK-CHAR T uses whitespace[2]
(let ((*readtable* (copy-readtable)))
Index: external-format.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/external-format.impure.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- external-format.impure.lisp 28 Jun 2006 11:35:51 -0000 1.14
+++ external-format.impure.lisp 4 Aug 2006 14:34:46 -0000 1.15
@@ -22,7 +22,7 @@
,@body))))
(do-external-formats (xf)
- (with-open-file (s "/dev/null" :direction :input :external-format xf)
+ (with-open-file (s #-win32 "/dev/null" #+win32 "nul" :direction :input :external-format xf)
(assert (eq (read-char s nil s) s))))
;;; Test standard character read-write equivalency over all external formats.
Index: callback.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/callback.impure.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- callback.impure.lisp 8 Jan 2006 03:06:11 -0000 1.14
+++ callback.impure.lisp 4 Aug 2006 14:34:46 -0000 1.15
@@ -41,6 +41,8 @@
;;; actually using a callback with foreign code
+#+win32 (sb-alien:load-shared-object "ntdll.dll")
+
(define-alien-routine qsort void
(base (* t))
(nmemb int)
|