v22.2b14/
v22.2b14/Win32/
v22.2b14/compat/
v22.2b14/testsuite/
v22.2b14/testsuite/clone/
v22.2b14/testsuite/command/
v22.2b14/testsuite/data/
v22.2b14/testsuite/etc/
v22.2b14/testsuite/include/
v22.2b14/testsuite/inherit/
v22.2b14/testsuite/inherit/master/
v22.2b14/testsuite/log/
v22.2b14/testsuite/single/
v22.2b14/testsuite/single/tests/compiler/
v22.2b14/testsuite/single/tests/efuns/
v22.2b14/testsuite/single/tests/operators/
v22.2b14/testsuite/u/
v22.2b14/tmp/
/*
          efun: mixed read_buffer(string|buffer, void|int, void|int);
   test author: John Garnett
          date: 1993 November 8
*/

#define TEST_STRING "ABC"

#ifndef __NO_BUFFER_TYPE__
buffer b;
#endif
int i;

void do_tests() {
    string s;

#ifndef __NO_BUFFER_TYPE__
    s = read_buffer(b);
    ASSERT(s == TEST_STRING);

    s = read_buffer(b, sizeof(b)-1);
    ASSERT(s == TEST_STRING[i..i]);

    s = read_buffer(b, sizeof(b));
    ASSERT(s == 0);

    s = read_buffer(b, -sizeof(b));
    ASSERT(s == TEST_STRING);

    s = read_buffer(b, -(sizeof(b) + 1));
    ASSERT(s == 0);

    s = read_buffer(b, 1, 1);
    ASSERT(s == TEST_STRING[1..1]);

    s = read_buffer(b, 1, sizeof(b));
    ASSERT(s == TEST_STRING[1..i]);
#endif

    /* add cases here to handle reading from files */
}

void
create()
{
	int j, limit;

	i = strlen(TEST_STRING) - 1;
	limit = strlen(TEST_STRING);
#ifndef __NO_BUFFER_TYPE__
	b = allocate_buffer(limit);
	for (j = 0; j < limit; j++) {
	    b[j] = TEST_STRING[j];
	}
#endif
}