From: Andy Wingo <wingo@pobox.com>
To: Christopher White <ceedave@me.com>
Cc: 20945@debbugs.gnu.org
Subject: bug#20945: One guile test failed
Date: Fri, 24 Jun 2016 09:16:02 +0200 [thread overview]
Message-ID: <87shw3hxal.fsf@pobox.com> (raw)
In-Reply-To: <E34A5868-7E0D-4B9F-8B09-9CCC24260AE4@me.com> (Christopher White's message of "Tue, 30 Jun 2015 14:43:08 -0500")
Thanks for the report.
On Tue 30 Jun 2015 21:43, Christopher White <ceedave@me.com> writes:
> For your information, make check produced one error, on OS X Yosemite.
>
> FAIL: numbers.test: string->number: valid complex number strings
Does this still happen for you?
If so, can you paste this at a REPL or in a file and see what it prints
out?
(for-each (lambda (triple)
(apply
(lambda (str re im)
(let ((z (string->number str)))
(if (or (eq? z #f)
(not (and (eqv? (real-part z) re)
(eqv? (imag-part z) im))))
(begin
(pk str re im)
(throw 'fail)))))
triple))
`(("1@0" 1 0) ("1@+0" 1 0) ("1@-0" 1 0) ("1/2@0" 1/2 0)
("1.0@0" 1.0 0) ("1.0@-0" 1.0 0)
("#e1@0" 1 0) ("#e1@+0" 1 0) ("#e1@-0" 1 0) ("#e0.5@0.0" 1/2 0)
("#e1.0@0" 1 0) ("#e1.0@-0" 1 0)
("#i1@0" 1.0 0.0) ("#i1@+0" 1.0 0.0) ("#i1@-0" 1.0 -0.0) ("#i1/2@0" 0.5 0.0)
("#i1.0@0" 1.0 0.0) ("#i1.0@-0" 1.0 -0.0)
("1@+0.0" 1.0 0.0) ("1.0@-0.0" 1.0 -0.0)
("2+3i" 2.0 3.0) ("4-5i" 4.0 -5.0)
("1+i" 1.0 1.0) ("1-i" 1.0 -1.0) ("+1i" 0.0 1.0) ("-1i" 0.0 -1.0)
("+i" 0.0 1.0) ("-i" 0.0 -1.0)
("1.0+.1i" 1.0 0.1) ("1.0-.1i" 1.0 -0.1)
(".1+.0i" 0.1 0.0) ("1.+.0i" 1.0 0.0) (".1+.1i" 0.1 0.1)
("1e1+.1i" 10.0 0.1)
("0@+nan.0" 0 0) ("0@+inf.0" 0 0) ("0@-inf.0" 0 0)
("0.0@+nan.0" 0.0 0.0) ("0.0@+inf.0" 0.0 0.0) ("0.0@-inf.0" 0.0 0.0)
("#i0@+nan.0" 0.0 0.0) ("#i0@+inf.0" 0.0 0.0) ("#i0@-inf.0" 0.0 0.0)
("0.0@1" 0.0 0.0) ("0.0@2" -0.0 0.0) ("0.0@4" -0.0 -0.0) ("0.0@5" 0.0 -0.0)
))
Cheers,
Andy
next prev parent reply other threads:[~2016-06-24 7:16 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-06-30 19:43 bug#20945: One guile test failed Christopher White
2016-06-24 7:16 ` Andy Wingo [this message]
2017-02-28 14:20 ` Andy Wingo
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87shw3hxal.fsf@pobox.com \
--to=wingo@pobox.com \
--cc=20945@debbugs.gnu.org \
--cc=ceedave@me.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).