diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-08 16:19:51 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-08 16:19:51 +0000 |
commit | 6005b7a23522ee8857d34d0c024bca74b6af1d2b (patch) | |
tree | 27d9c7a8dac3ca951d4007b5fb5b08c75baf51e5 | |
parent | be2540fa56d1bcfc756c8ae18851a894fc7f9365 (diff) | |
download | guile-6005b7a23522ee8857d34d0c024bca74b6af1d2b.tar.gz |
Don't expect (expt 1/2 2.0) to yield an exact result, use (expt 1/2 2)
instead.
-rw-r--r-- | test-suite/tests/fractions.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/fractions.test b/test-suite/tests/fractions.test index 28fd12aa4..21685b585 100644 --- a/test-suite/tests/fractions.test +++ b/test-suite/tests/fractions.test @@ -111,7 +111,7 @@ (testeqv (expt 2 1/2) (sqrt 2)) (testeqv (expt 1/2 2) 1/4) (testeqv (expt 2.0 1/2) (sqrt 2)) - (testeqv (expt 1/2 2.0) 1/4) + (testeqv (expt 1/2 2) 1/4) (testeqv (real-part 3/4) 3/4) (testeqv (imag-part 3/4) 0) (testeqv (numerator 3/4) 3) |