mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-09 23:40:29 +02:00
Use scm_boot_guile rather than scm_init_guile, for the benefit of
those systems where we can't implement the latter.
This commit is contained in:
parent
3e494123b6
commit
158d3dac8a
5 changed files with 39 additions and 14 deletions
|
@ -1010,10 +1010,9 @@ test_locale_strings ()
|
||||||
test_11 ("(string #\\f #\\nul)", NULL, 1, 0);
|
test_11 ("(string #\\f #\\nul)", NULL, 1, 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
static void
|
||||||
main (int argc, char *argv[])
|
tests (void *data, int argc, char **argv)
|
||||||
{
|
{
|
||||||
scm_init_guile();
|
|
||||||
test_is_signed_integer ();
|
test_is_signed_integer ();
|
||||||
test_is_unsigned_integer ();
|
test_is_unsigned_integer ();
|
||||||
test_to_signed_integer ();
|
test_to_signed_integer ();
|
||||||
|
@ -1024,5 +1023,11 @@ main (int argc, char *argv[])
|
||||||
test_from_double ();
|
test_from_double ();
|
||||||
test_to_double ();
|
test_to_double ();
|
||||||
test_locale_strings ();
|
test_locale_strings ();
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
scm_boot_guile (argc, argv, tests, NULL);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
|
@ -67,11 +67,16 @@ test_gh_set_substr ()
|
||||||
assert (string_equal (string, "Frdarnitrnit!"));
|
assert (string_equal (string, "Frdarnitrnit!"));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
tests (void *data, int argc, char **argv)
|
||||||
|
{
|
||||||
|
test_gh_set_substr ();
|
||||||
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
{
|
{
|
||||||
scm_init_guile ();
|
scm_boot_guile (argc, argv, tests, NULL);
|
||||||
test_gh_set_substr ();
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -46,10 +46,15 @@ test_scm_list (void)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
static void
|
||||||
main (int argc, char **argv)
|
tests (void *data, int argc, char **argv)
|
||||||
{
|
{
|
||||||
scm_init_guile();
|
|
||||||
test_scm_list ();
|
test_scm_list ();
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
scm_boot_guile (argc, argv, tests, NULL);
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
|
@ -141,12 +141,17 @@ test_ulong_long ()
|
||||||
#endif /* SCM_SIZEOF_LONG_LONG != 0 */
|
#endif /* SCM_SIZEOF_LONG_LONG != 0 */
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
tests (void *data, int argc, char **argv)
|
||||||
|
{
|
||||||
|
test_long_long ();
|
||||||
|
test_ulong_long ();
|
||||||
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
{
|
{
|
||||||
scm_init_guile();
|
scm_boot_guile (argc, argv, tests, NULL);
|
||||||
test_long_long ();
|
|
||||||
test_ulong_long ();
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -113,10 +113,15 @@ test_scm_c_round ()
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
tests (void *data, int argc, char **argv)
|
||||||
|
{
|
||||||
|
test_scm_c_round ();
|
||||||
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
{
|
{
|
||||||
scm_init_guile();
|
scm_boot_guile (argc, argv, tests, NULL);
|
||||||
test_scm_c_round ();
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue