fluffos-1.22/
fluffos-1.22/Win32/
fluffos-1.22/compat/
fluffos-1.22/testsuite/
fluffos-1.22/testsuite/clone/
fluffos-1.22/testsuite/command/
fluffos-1.22/testsuite/data/
fluffos-1.22/testsuite/etc/
fluffos-1.22/testsuite/include/
fluffos-1.22/testsuite/inherit/
fluffos-1.22/testsuite/inherit/master/
fluffos-1.22/testsuite/log/
fluffos-1.22/testsuite/single/
fluffos-1.22/testsuite/single/tests/compiler/
fluffos-1.22/testsuite/single/tests/efuns/
fluffos-1.22/testsuite/single/tests/operators/
fluffos-1.22/testsuite/u/
fluffos-1.22/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
}