mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(test_is_signed_integer, test_is_unsigned_integer): Expect inexact

Browse source 
integers to fail.
This commit is contained in:
Marius Vollmer 2004-07-10 14:39:12 +00:00
parent a55c2b6809
commit abe1308cb9
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/standalone/test-conversion.c
View file

@ -40,6 +40,9 @@ test_is_signed_integer ()
SCM_T_INTMAX_MIN, SCM_T_INTMAX_MAX,
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",
@ -122,6 +125,9 @@ test_is_unsigned_integer ()
0, SCM_T_UINTMAX_MAX,
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",