mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

Only perform the tests when the disabled features are enabled.

Browse source
This commit is contained in:
Marius Vollmer 2004-08-03 15:07:23 +00:00
parent eae5018eff
commit b8f63daff4
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/standalone/test-num2integral.c
View file

@ -20,6 +20,8 @@
#include <stdio.h> #include <stdio.h>
#include <assert.h> #include <assert.h>
#if SCM_ENABLE_DISCOURAGED == 1
SCM out_of_range_handler (void *data, SCM key, SCM args); SCM out_of_range_handler (void *data, SCM key, SCM args);
SCM call_num2long_long_body (void *data); SCM call_num2long_long_body (void *data);
SCM call_num2ulong_long_body (void *data); SCM call_num2ulong_long_body (void *data);
@ -147,3 +149,13 @@ main (int argc, char *argv[])
test_ulong_long (); test_ulong_long ();
return 0; return 0;
} }
#else /* SCM_ENABLE_DISCOURAGED == 0 */
int
main (int argc, char *argv[])
{
return 0;
}
#endif /* SCM_ENABLE_DISCOURAGED == 0 */