ccan/io: test custom io functions.
[ccan] / ccan / io / test / run-17-homemade-io.c
1 #include <ccan/io/io.h>
2 /* Include the C files directly. */
3 #include <ccan/io/poll.c>
4 #include <ccan/io/io.c>
5 #include <ccan/tap/tap.h>
6 #include <sys/wait.h>
7 #include <stdio.h>
8
9 #ifndef PORT
10 #define PORT "65017"
11 #endif
12
13 struct packet {
14         int state;
15         size_t len;
16         void *contents;
17 };
18
19 static void finish_ok(struct io_conn *conn, struct packet *pkt)
20 {
21         ok1(pkt->state == 3);
22         pkt->state++;
23         io_break(pkt, io_idle());
24 }
25
26 static bool do_read_packet(int fd, struct io_plan *plan)
27 {
28         struct packet *pkt = plan->u.ptr_len.p;
29         char *dest;
30         ssize_t ret;
31         size_t off, totlen;
32
33         /* Reading len? */
34         if (plan->u.ptr_len.len < sizeof(size_t)) {
35                 ok1(pkt->state == 1);
36                 pkt->state++;
37                 dest = (char *)&pkt->len;
38                 off = plan->u.ptr_len.len;
39                 totlen = sizeof(pkt->len);
40         } else {
41                 ok1(pkt->state == 2);
42                 pkt->state++;
43                 if (pkt->len == 0)
44                         return true;
45                 if (!pkt->contents && !(pkt->contents = malloc(pkt->len)))
46                         goto fail;
47                 else {
48                         dest = pkt->contents;
49                         off = plan->u.ptr_len.len - sizeof(pkt->len);
50                         totlen = pkt->len;
51                 }
52         }
53
54         ret = read(fd, dest + off, totlen - off);
55         if (ret <= 0)
56                 goto fail;
57
58         plan->u.ptr_len.len += ret;
59
60         /* Finished? */
61         return (plan->u.ptr_len.len >= sizeof(pkt->len)
62                 && plan->u.ptr_len.len == pkt->len + sizeof(pkt->len));
63
64 fail:
65         free(pkt->contents);
66         /* Override next function to close us. */
67         plan->next = io_close;
68         return true;
69 }
70
71 static struct io_plan io_read_packet(struct packet *pkt,
72                                      struct io_plan (*cb)(struct io_conn *, void *),
73                                      void *arg)
74 {
75         struct io_plan plan;
76
77         assert(cb);
78         pkt->contents = NULL;
79         plan.u.ptr_len.p = pkt;
80         plan.u.ptr_len.len = 0;
81         plan.io = do_read_packet;
82         plan.next = cb;
83         plan.next_arg = arg;
84         plan.pollflag = POLLIN;
85
86         io_plan_debug(&plan);
87         return plan;
88 }
89
90 static void init_conn(int fd, struct packet *pkt)
91 {
92         ok1(pkt->state == 0);
93         pkt->state++;
94
95         if (!io_new_conn(fd, io_read_packet(pkt, io_close, pkt), finish_ok, pkt))
96                 abort();
97 }
98
99 static int make_listen_fd(const char *port, struct addrinfo **info)
100 {
101         int fd, on = 1;
102         struct addrinfo *addrinfo, hints;
103
104         memset(&hints, 0, sizeof(hints));
105         hints.ai_family = AF_UNSPEC;
106         hints.ai_socktype = SOCK_STREAM;
107         hints.ai_flags = AI_PASSIVE;
108         hints.ai_protocol = 0;
109
110         if (getaddrinfo(NULL, port, &hints, &addrinfo) != 0)
111                 return -1;
112
113         fd = socket(addrinfo->ai_family, addrinfo->ai_socktype,
114                     addrinfo->ai_protocol);
115         if (fd < 0)
116                 return -1;
117
118         setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on));
119         if (bind(fd, addrinfo->ai_addr, addrinfo->ai_addrlen) != 0) {
120                 close(fd);
121                 return -1;
122         }
123         if (listen(fd, 1) != 0) {
124                 close(fd);
125                 return -1;
126         }
127         *info = addrinfo;
128         return fd;
129 }
130
131 int main(void)
132 {
133         struct packet *pkt = malloc(sizeof(*pkt));
134         struct addrinfo *addrinfo;
135         struct io_listener *l;
136         int fd, status;
137
138         /* This is how many tests you plan to run */
139         plan_tests(13);
140         pkt->state = 0;
141         fd = make_listen_fd(PORT, &addrinfo);
142         ok1(fd >= 0);
143         l = io_new_listener(fd, init_conn, pkt);
144         ok1(l);
145         fflush(stdout);
146         if (!fork()) {
147                 struct {
148                         size_t len;
149                         char data[8];
150                 } data;
151
152                 io_close_listener(l);
153                 fd = socket(addrinfo->ai_family, addrinfo->ai_socktype,
154                             addrinfo->ai_protocol);
155                 if (fd < 0)
156                         exit(1);
157                 if (connect(fd, addrinfo->ai_addr, addrinfo->ai_addrlen) != 0)
158                         exit(2);
159                 signal(SIGPIPE, SIG_IGN);
160
161                 data.len = sizeof(data.data);
162                 memcpy(data.data, "hithere!", sizeof(data.data));
163                 if (write(fd, &data, sizeof(data)) != sizeof(data))
164                         exit(3);
165
166                 close(fd);
167                 freeaddrinfo(addrinfo);
168                 free(pkt);
169                 exit(0);
170         }
171         freeaddrinfo(addrinfo);
172         ok1(io_loop() == pkt);
173         ok1(pkt->state == 4);
174         ok1(pkt->len == 8);
175         ok1(memcmp(pkt->contents, "hithere!", 8) == 0);
176         free(pkt->contents);
177         free(pkt);
178         io_close_listener(l);
179
180         ok1(wait(&status));
181         ok1(WIFEXITED(status));
182         ok1(WEXITSTATUS(status) == 0);
183
184         /* This exits depending on whether all tests passed */
185         return exit_status();
186 }