1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
#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"
|
