This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
Re: Two unexpected test failures.
- To: Gary Houston <ghouston at arglist dot com>
- Subject: Re: Two unexpected test failures.
- From: Dirk Herrmann <dirk at ida dot ing dot tu-bs dot de>
- Date: Thu, 30 Mar 2000 10:41:25 +0200 (MEST)
- cc: jimb at red-bean dot com, guile at sourceware dot cygnus dot com
On 29 Mar 2000, Gary Houston wrote:
> This test uses something like:
>
> (strftime "%Z" #(47 27 21 29 2 100 3 88 1 -3600 "ZOW"))
>
> What does that return on Solaris?
It returns CEST on my system. (SunOS 5.7 Generic sun4u sparc
SUNW,UltraSPARC-IIi-Engine)
> What happens if you run these on Solaris?
>
> (let* ((p (pipe))
> (r (car p)))
> (fcntl r F_GETFL))
--> 2
> (let* ((p (pipe))
> (r (car p)))
> (fcntl r F_SETFL O_NONBLOCK)
> (read-char r))
Backtrace:
0* (let* ((p (pipe)) (r (car p))) (fcntl r F_SETFL O_NONBLOCK) (read-char r))
1 [read-char #<input: read pipe 5>]
ERROR: In procedure read-char in expression (read-char r):
ERROR: Resource temporarily unavailable
ABORT: (system-error)
> (let* ((p (pipe))
> (r (car p)))
> (fcntl r F_SETFL (logior (fcntl r F_GETFL) O_NONBLOCK))
> (read-char r))
Backtrace:
0* (let* ((p (pipe)) (r (car p))) (fcntl r F_SETFL ...) ...)
1 [read-char #<input: read pipe 7>]
ERROR: In procedure read-char in expression (read-char r):
ERROR: Resource temporarily unavailable
ABORT: (system-error)
Best regards
Dirk Herrmann