1#include <mcheck.h>
2#include <stdio.h>
3#include <stdlib.h>
4
5
6#ifndef CHAR_T
7# define CHAR_T char
8# define W(o) o
9# define OPEN_MEMSTREAM open_memstream
10#endif
11
12#define S(s) S1 (s)
13#define S1(s) #s
14
15
16static void
17mcheck_abort (enum mcheck_status ev)
18{
19 printf (format: "mecheck failed with status %d\n", (int) ev);
20 exit (1);
21}
22
23
24static int
25do_test (void)
26{
27 mcheck_pedantic (abortfunc: mcheck_abort);
28
29 CHAR_T *buf = (CHAR_T *) 1l;
30 size_t len = 12345;
31 FILE *fp = OPEN_MEMSTREAM (bufloc: &buf, sizeloc: &len);
32 if (fp == NULL)
33 {
34 printf (format: "%s failed\n", S(OPEN_MEMSTREAM));
35 return 1;
36 }
37
38 if (fflush (fp) != 0)
39 {
40 puts (s: "fflush failed");
41 return 1;
42 }
43
44 if (len != 0)
45 {
46 puts (s: "string after no write not empty");
47 return 1;
48 }
49 if (buf == (CHAR_T *) 1l)
50 {
51 puts (s: "buf not updated");
52 return 1;
53 }
54 if (buf[0] != W('\0'))
55 {
56 puts (s: "buf[0] != 0");
57 return 1;
58 }
59
60 buf = (CHAR_T *) 1l;
61 len = 12345;
62 if (fclose (fp) != 0)
63 {
64 puts (s: "fclose failed");
65 return 1;
66 }
67
68 if (len != 0)
69 {
70 puts (s: "string after close with no write not empty");
71 return 1;
72 }
73 if (buf == (CHAR_T *) 1l)
74 {
75 puts (s: "buf not updated");
76 return 1;
77 }
78 if (buf[0] != W('\0'))
79 {
80 puts (s: "buf[0] != 0");
81 return 1;
82 }
83
84 free (ptr: buf);
85
86 return 0;
87}
88
89#define TEST_FUNCTION do_test ()
90#include "../test-skeleton.c"
91

source code of glibc/libio/tst-memstream1.c