[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#20945: One guile test failed
From: |
Andy Wingo |
Subject: |
bug#20945: One guile test failed |
Date: |
Fri, 24 Jun 2016 09:16:02 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) |
Thanks for the report.
On Tue 30 Jun 2015 21:43, Christopher White <address@hidden> 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))
`(("address@hidden" 1 0) ("address@hidden" 1 0) ("address@hidden"
1 0) ("1/address@hidden" 1/2 0)
("address@hidden" 1.0 0) ("address@hidden" 1.0 0)
("address@hidden" 1 0) ("address@hidden" 1 0) ("address@hidden"
1 0) ("address@hidden" 1/2 0)
("address@hidden" 1 0) ("address@hidden" 1 0)
("address@hidden" 1.0 0.0) ("address@hidden" 1.0 0.0)
("address@hidden" 1.0 -0.0) ("#i1/address@hidden" 0.5 0.0)
("address@hidden" 1.0 0.0) ("address@hidden" 1.0 -0.0)
("address@hidden" 1.0 0.0) ("address@hidden" 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)
("address@hidden" 0 0) ("address@hidden" 0 0) ("address@hidden"
0 0)
("address@hidden" 0.0 0.0) ("address@hidden" 0.0 0.0)
("address@hidden" 0.0 0.0)
("address@hidden" 0.0 0.0) ("address@hidden" 0.0 0.0)
("address@hidden" 0.0 0.0)
("address@hidden" 0.0 0.0) ("address@hidden" -0.0 0.0)
("address@hidden" -0.0 -0.0) ("address@hidden" 0.0 -0.0)
))
Cheers,
Andy
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#20945: One guile test failed,
Andy Wingo <=