Just Launched: You can now import projects and releases from Google Code onto SourceForge
We are excited to release new functionality to enable a 1-click import from Google Code onto the Allura platform on SourceForge. You can import tickets, wikis, source, releases, and more with a few simple steps. Read More
Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5024/tests
Fix for a couple of Unicode-related bugs.
... KLUDGE around the non-existence of proper external-format
support in GET-DESCRIPTOR-FOR / RUN-PROGRAM;
... hideous hack in asdf-install to allow downloads of binary data
through character streams.
RCS file: /cvsroot/sbcl/sbcl/tests/run-program.test.sh,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- run-program.test.sh 3 Sep 2003 08:41:54 -0000 1.10
+++ run-program.test.sh 3 Dec 2004 12:49:47 -0000 1.11
@@ -57,6 +57,13 @@
;; That's not just because POSIX-ENVIRON is having a bad hair
;; day and returning NIL, is it?
(assert (plusp (length (sb-ext:posix-environ))))
+ ;; make sure that a stream input argument is basically reasonable.
+ (let ((string (let ((i (make-string-input-stream "abcdef")))
+ (with-output-to-string (stream)
+ (sb-ext:run-program "/bin/cat" ()
+ :input i :output stream)))))
+ (assert (= (length string) 6))
+ (assert (string= string "abcdef")))
;; success convention for this Lisp program run as part of a larger script
(sb-ext:quit :unix-status 52)))