summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-10 14:39:12 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-10 14:39:12 +0000
commitabe1308cb9084da032016f8c158df45ef29919ae (patch)
treeb9e56d0f95b3ffb9b842f1a019014cafe345685b
parenta55c2b680920198892329bdf78c92ecc7553eb58 (diff)
downloadguile-abe1308cb9084da032016f8c158df45ef29919ae.tar.gz
(test_is_signed_integer, test_is_unsigned_integer): Expect inexact
integers to fail.
-rw-r--r--test-suite/standalone/test-conversion.c6
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,