diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-10 14:39:12 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-10 14:39:12 +0000 |
commit | abe1308cb9084da032016f8c158df45ef29919ae (patch) | |
tree | b9e56d0f95b3ffb9b842f1a019014cafe345685b | |
parent | a55c2b680920198892329bdf78c92ecc7553eb58 (diff) | |
download | guile-abe1308cb9084da032016f8c158df45ef29919ae.tar.gz |
(test_is_signed_integer, test_is_unsigned_integer): Expect inexact
integers to fail.
-rw-r--r-- | test-suite/standalone/test-conversion.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/standalone/test-conversion.c b/test-suite/standalone/test-conversion.c index 6c718bf81..7dc792de9 100644 --- a/test-suite/standalone/test-conversion.c +++ b/test-suite/standalone/test-conversion.c @@ -41,6 +41,9 @@ test_is_signed_integer () 0); test_1 ("3.0", SCM_T_INTMAX_MIN, SCM_T_INTMAX_MAX, + 0); + test_1 ("(inexact->exact 3.0)", + SCM_T_INTMAX_MIN, SCM_T_INTMAX_MAX, 1); test_1 ("3.5", SCM_T_INTMAX_MIN, SCM_T_INTMAX_MAX, @@ -123,6 +126,9 @@ test_is_unsigned_integer () 0); test_2 ("3.0", 0, SCM_T_UINTMAX_MAX, + 0); + test_2 ("(inexact->exact 3.0)", + 0, SCM_T_UINTMAX_MAX, 1); test_2 ("3.5", 0, SCM_T_UINTMAX_MAX, |