fscanf test from libc-testsuit

diff --git a/src/stdio/fscanf.c b/src/stdio/fscanf.c
new file mode 100644 (file)
index 0000000..d0c47c7
--- /dev/null
+++ b/src/stdio/fscanf.c
@@ -0,0 +1,49 @@
+#define _POSIX_C_SOURCE 200809L
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <limits.h>
+#include <unistd.h>
+#include "test.h"
+
+#define T(r, f, x, m) do { \
+       r = (f); \
+       if (r != (x)) \
+               error("%s failed (got %d, expected %d, errno \"%s\") (%s)\n", \
+                       #f, r, x, errno ? strerror(errno) : "", m); \
+       errno = 0; \
+} while (0)
+
+static void S(const char *s, const char *x, const char *m) {
+       if (strcmp(s, x) != 0)
+               error("got [%s], expected [%s] (%s)\n", s, x, m);
+}
+
+void test_fscanf(void) {
+       int i, x, y;
+       char a[100], b[100];
+       int p[2];
+       FILE *f;
+
+       T(i, pipe(p), 0, "open pipe");
+       T(i, !(f = fdopen(p[0], "rb")), 0, "fdopen pipe");
+       if (!f) {
+               close(p[0]);
+               close(p[1]);
+               return;
+       }
+
+       T(i, write(p[1], "hello, world\n", 13), 13, "write to pipe");
+       T(i, fscanf(f, "%s %[own]", a, b), 2, "");
+       S(a, "hello,", "wrong result for %s");
+       S(b, "wo", "wrong result for %[own]");
+       T(i, fgetc(f), 'r', "fgetc 'r'");
+
+       T(i, write(p[1], " 0x12 0x34", 10), 10, "");
+       T(i, fscanf(f, "ld %5i%2i", &x, &y), 1, "");
+       T(i, x, 0x12, "");
+       T(i, fgetc(f), '3', "fgetc '3'");
+
+       fclose(f);
+       close(p[1]);
+}