diff options
Diffstat (limited to 'test-suite/standalone/test-loose-ends.c')
-rw-r--r-- | test-suite/standalone/test-loose-ends.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/standalone/test-loose-ends.c b/test-suite/standalone/test-loose-ends.c index d1d683175..253c9a68f 100644 --- a/test-suite/standalone/test-loose-ends.c +++ b/test-suite/standalone/test-loose-ends.c @@ -59,10 +59,27 @@ test_scm_local_eval () } static void +test_scm_call_varargs () +{ + SCM result; + + result = scm_call_varargs (scm_c_public_ref ("guile", "+"), + scm_from_int (1), + scm_from_int (2), + SCM_UNDEFINED); + assert (scm_is_true (scm_equal_p (result, scm_from_int (3)))); + + result = scm_call_varargs (scm_c_public_ref ("guile", "list"), + SCM_UNDEFINED); + assert (scm_is_eq (result, SCM_EOL)); +} + +static void tests (void *data, int argc, char **argv) { test_scm_from_locale_keywordn (); test_scm_local_eval (); + test_scm_call_varargs (); } int |