107 lines
2.0 KiB
C
107 lines
2.0 KiB
C
|
#include <mcheck.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
|
||
|
|
|
||
|
|
#ifndef CHAR_T
|
||
|
|
# define CHAR_T char
|
||
|
|
# define W(o) o
|
||
|
|
# define OPEN_MEMSTREAM open_memstream
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define S(s) S1 (s)
|
||
|
|
#define S1(s) #s
|
||
|
|
|
||
|
|
|
||
|
|
static void
|
||
|
|
mcheck_abort (enum mcheck_status ev)
|
||
|
|
{
|
||
|
|
printf ("mecheck failed with status %d\n", (int) ev);
|
||
|
|
exit (1);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
static int
|
||
|
|
do_test (void)
|
||
|
|
{
|
||
|
|
mcheck_pedantic (mcheck_abort);
|
||
|
|
|
||
|
|
CHAR_T *buf = (CHAR_T *) 1l;
|
||
|
|
size_t len = 12345;
|
||
|
|
FILE *fp = OPEN_MEMSTREAM (&buf, &len);
|
||
|
|
if (fp == NULL)
|
||
|
|
{
|
||
|
|
printf ("%s failed\n", S(OPEN_MEMSTREAM));
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
for (int outer = 0; outer < 800; ++outer)
|
||
|
|
{
|
||
|
|
for (int inner = 0; inner < 100; ++inner)
|
||
|
|
if (fputc (W('a') + (outer * 100 + inner) % 26, fp) == EOF)
|
||
|
|
{
|
||
|
|
printf ("fputc at %d:%d failed\n", outer, inner);
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (fflush (fp) != 0)
|
||
|
|
{
|
||
|
|
puts ("fflush failed");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (len != (outer + 1) * 100)
|
||
|
|
{
|
||
|
|
printf ("string in round %d not %d bytest long\n",
|
||
|
|
outer + 1, (outer + 1) * 100);
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
if (buf == (CHAR_T *) 1l)
|
||
|
|
{
|
||
|
|
printf ("round %d: buf not updated\n", outer + 1);
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
for (int inner = 0; inner < (outer + 1) * 100; ++inner)
|
||
|
|
if (buf[inner] != W('a') + inner % 26)
|
||
|
|
{
|
||
|
|
printf ("round %d: buf[%d] != '%c'\n", outer + 1, inner,
|
||
|
|
(char) (W('a') + inner % 26));
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
buf = (CHAR_T *) 1l;
|
||
|
|
len = 12345;
|
||
|
|
if (fclose (fp) != 0)
|
||
|
|
{
|
||
|
|
puts ("fclose failed");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (len != 800 * 100)
|
||
|
|
{
|
||
|
|
puts ("string after close not 80000 bytes long");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
if (buf == (CHAR_T *) 1l)
|
||
|
|
{
|
||
|
|
puts ("buf not updated");
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
for (int inner = 0; inner < 800 * 100; ++inner)
|
||
|
|
if (buf[inner] != W('a') + inner % 26)
|
||
|
|
{
|
||
|
|
printf ("after close: buf[%d] != %c\n", inner,
|
||
|
|
(char) (W('a') + inner % 26));
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
free (buf);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
#define TIMEOUT 100
|
||
|
|
#define TEST_FUNCTION do_test ()
|
||
|
|
#include "../test-skeleton.c"
|