mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-11 22:31:12 +02:00
Remove obsolete test directory.
* test-suite/tests/c-api: Remove.
This commit is contained in:
Ludovic Courtès
parent
d12f974b43
commit
5595bd7641
5 changed files with 0 additions and 250 deletions
|
|
@ -1,16 +0,0 @@
|
|||
CC = gcc
|
||||
CFLAGS = -g `guile-config compile`
|
||||
|
||||
all: strings
|
||||
|
||||
strings: strings.o testlib.o
|
||||
${CC} ${CFLAGS} ${LDFLAGS} -o strings strings.o testlib.o \
|
||||
`guile-config link`
|
||||
|
||||
strings.o: strings.c testlib.h
|
||||
testlib.o: testlib.c testlib.h
|
||||
|
||||
|
||||
clean:
|
||||
rm -f strings
|
||||
rm -f *.o
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
[NOTE: this code is no longer used -- for now these tests are in the
|
||||
standalone directory. What'll happen longer-term is uncertain...]
|
||||
|
||||
|
||||
This directory contains tests for Guile's C API. At the moment, the
|
||||
test suite doesn't have any way to run these automatically --- we need
|
||||
to 1) figure out how to run the compiler, and 2) figure out how to
|
||||
integrate results from C tests into the test suite statistics.
|
||||
|
||||
Nonetheless, it's better to have this code accumulating here than
|
||||
someplace else where nobody can find it.
|
||||
|
|
@ -1,74 +0,0 @@
|
|||
|
||||
/* NOTE: this code was never being run. The same tests have been
|
||||
migrated to standalone/test-gh.c */
|
||||
|
||||
/* strings.c --- test the Guile C API's string handling functions
|
||||
Jim Blandy <jimb@red-bean.com> --- August 1999 */
|
||||
|
||||
#include <guile/gh.h>
|
||||
|
||||
#include "testlib.h"
|
||||
|
||||
static int
|
||||
string_equal (SCM str, char *lit)
|
||||
{
|
||||
int len = strlen (lit);
|
||||
|
||||
return (SCM_LENGTH (str) == len
|
||||
&& ! memcmp (SCM_ROCHARS (str), lit, len));
|
||||
}
|
||||
|
||||
void
|
||||
test_gh_set_substr ()
|
||||
{
|
||||
test_context_t cx = test_enter_context ("gh_set_substr");
|
||||
SCM string;
|
||||
|
||||
string = gh_str02scm ("Free, darnit!");
|
||||
test_pass_if ("make a string", gh_string_p (string));
|
||||
|
||||
gh_set_substr ("dammit", string, 6, 6);
|
||||
test_pass_if ("gh_set_substr from literal",
|
||||
string_equal (string, "Free, dammit!"));
|
||||
|
||||
/* Make sure that we can use the string itself as a source.
|
||||
|
||||
I guess this behavior isn't really visible, since the GH API
|
||||
doesn't provide any direct access to the string contents. But I
|
||||
think it should, eventually. You can't write efficient string
|
||||
code if you have to copy the string just to look at it. */
|
||||
|
||||
/* Copy a substring to an overlapping region to its right. */
|
||||
gh_set_substr (SCM_CHARS (string), string, 4, 6);
|
||||
test_pass_if ("gh_set_substr shifting right",
|
||||
string_equal (string, "FreeFree, it!"));
|
||||
|
||||
string = gh_str02scm ("Free, darnit!");
|
||||
test_pass_if ("make another string", gh_string_p (string));
|
||||
|
||||
/* Copy a substring to an overlapping region to its left. */
|
||||
gh_set_substr (SCM_CHARS (string) + 6, string, 2, 6);
|
||||
test_pass_if ("gh_set_substr shifting right",
|
||||
string_equal (string, "Frdarnitrnit!"));
|
||||
|
||||
test_restore_context (cx);
|
||||
}
|
||||
|
||||
void
|
||||
main_prog (int argc, char *argv[])
|
||||
{
|
||||
test_context_t strings = test_enter_context ("strings.c");
|
||||
|
||||
test_gh_set_substr ();
|
||||
|
||||
test_restore_context (strings);
|
||||
|
||||
exit (test_summarize ());
|
||||
}
|
||||
|
||||
int
|
||||
main (int argc, char *argv[])
|
||||
{
|
||||
gh_enter (argc, argv, main_prog);
|
||||
return 0;
|
||||
}
|
||||
|
|
@ -1,121 +0,0 @@
|
|||
/* testlib.c --- reporting test results
|
||||
Jim Blandy <jimb@red-bean.com> --- August 1999 */
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#include "testlib.h"
|
||||
|
||||
|
||||
|
||||
/* Dying. */
|
||||
|
||||
static void
|
||||
fatal (char *message)
|
||||
{
|
||||
fprintf (stderr, "%s\n", message);
|
||||
exit (1);
|
||||
}
|
||||
|
||||
|
||||
/* Contexts. */
|
||||
|
||||
/* If it gets deeper than this, that's probably an error, right? */
|
||||
#define MAX_NESTING 10
|
||||
|
||||
int depth = 0;
|
||||
char *context_name_stack[MAX_NESTING];
|
||||
int marker;
|
||||
int context_marker_stack[MAX_NESTING];
|
||||
|
||||
test_context_t
|
||||
test_enter_context (char *name)
|
||||
{
|
||||
if (depth >= MAX_NESTING)
|
||||
fatal ("test contexts nested too deeply");
|
||||
|
||||
/* Generate a unique marker value for this context. */
|
||||
marker++;
|
||||
|
||||
context_name_stack[depth] = name;
|
||||
context_marker_stack[depth] = marker;
|
||||
|
||||
depth++;
|
||||
|
||||
return marker;
|
||||
}
|
||||
|
||||
void
|
||||
test_restore_context (test_context_t context)
|
||||
{
|
||||
if (depth <= 0)
|
||||
fatal ("attempt to leave outermost context");
|
||||
|
||||
depth--;
|
||||
|
||||
/* Make sure that we're exiting the same context we last entered. */
|
||||
if (context_marker_stack[depth] != context)
|
||||
fatal ("contexts not nested properly");
|
||||
}
|
||||
|
||||
|
||||
/* Reporting results. */
|
||||
|
||||
int count_passes, count_fails;
|
||||
|
||||
static void
|
||||
print_test_name (char *name)
|
||||
{
|
||||
int i;
|
||||
|
||||
for (i = 0; i < depth; i++)
|
||||
printf ("%s: ", context_name_stack[i]);
|
||||
|
||||
printf ("%s", name);
|
||||
}
|
||||
|
||||
static void
|
||||
print_result (char *result, char *name)
|
||||
{
|
||||
printf ("%s: ", result);
|
||||
print_test_name (name);
|
||||
putchar ('\n');
|
||||
}
|
||||
|
||||
void
|
||||
test_pass (char *name)
|
||||
{
|
||||
print_result ("PASS", name);
|
||||
count_passes++;
|
||||
}
|
||||
|
||||
void
|
||||
test_fail (char *name)
|
||||
{
|
||||
print_result ("FAIL", name);
|
||||
count_fails++;
|
||||
}
|
||||
|
||||
void
|
||||
test_pass_if (char *name, int condition)
|
||||
{
|
||||
(condition ? test_pass : test_fail) (name);
|
||||
}
|
||||
|
||||
|
||||
/* Printing a summary. */
|
||||
|
||||
/* Print a summary of the reported test results. Return zero if
|
||||
no failures occurred, one otherwise. */
|
||||
|
||||
int
|
||||
test_summarize ()
|
||||
{
|
||||
putchar ('\n');
|
||||
|
||||
printf ("passes: %d\n", count_passes);
|
||||
printf ("failures: %d\n", count_fails);
|
||||
printf ("total tests: %d\n", count_passes + count_fails);
|
||||
|
||||
return (count_fails != 0);
|
||||
}
|
||||
|
|
@ -1,28 +0,0 @@
|
|||
/* testlib.h --- reporting test results
|
||||
Jim Blandy <jimb@red-bean.com> --- August 1999 */
|
||||
|
||||
#ifndef TESTLIB_H
|
||||
#define TESTLIB_H
|
||||
|
||||
extern void test_pass (char *name);
|
||||
extern void test_fail (char *name);
|
||||
extern void test_pass_if (char *name, int condition);
|
||||
|
||||
/* We need a way to keep track of what groups of tests we're currently
|
||||
within. A call to test_enter_context assures that future tests
|
||||
will be reported with a name prefixed by NAME, until we call
|
||||
test_restore_context with the value it returned.
|
||||
|
||||
Calls to test_enter_context and test_restore_context should be
|
||||
properly nested; passing the context around allows them to detect
|
||||
mismatches.
|
||||
|
||||
It is the caller's responsibility to free NAME after exiting the
|
||||
context. (This is trivial if you're passing string literals to
|
||||
test_enter_context.) */
|
||||
|
||||
typedef int test_context_t;
|
||||
extern test_context_t test_enter_context (char *name);
|
||||
extern void test_restore_context (test_context_t context);
|
||||
|
||||
#endif /* TESTLIB_H */
|
||||
Loading…
Add table
Add a link
Reference in a new issue