From 111e71e1511b2abff9176bd6c714c8da796f770e Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Sun, 16 Nov 2025 12:11:18 +0100
Subject: basic automated testing

---
 test/07-pp.c | 63 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 test/07-pp.c

(limited to 'test/07-pp.c')

diff --git a/test/07-pp.c b/test/07-pp.c
new file mode 100644
index 0000000..c26105d
--- /dev/null
+++ b/test/07-pp.c
@@ -0,0 +1,63 @@
+/* EXPECT:
+ok /1 "\n"n ;.& 05.5 ADD(1,2)
+hi from header ;73
+Foo,5 9 1506
+join: "x ## y"
+wide   L"abc123 猫,€á💫",  U+1f98b
+Output ends here
+*/
+
+#include "07-pp.h"
+#include "07-pp.h"
+#include <stddef.h>
+#include <stdio.h>
+#include <wchar.h>
+#include <locale.h>
+//
+#define CATl(a) a##bar
+#define CATr(a) foo##a
+#define CAT(a,b) a##b
+#define foobar() foo##bar
+
+#define hash_hash # ## #
+#define mkstr(a) # a
+#define in_between(a) mkstr(a)
+#define join(c, d) in_between(c hash_hash d)
+char p[] = join(x, y); // equivalent to   char p[] = "x ## y";
+
+#define PUTS p\
+u\
+t\
+s
+
+
+int
+main(void)
+{
+   int CATl(foo);
+   ++foobar;
+   --CATr(bar);
+   CAT(foo,bar) += 3;
+   foobar() /=2;
+   printf("%s %s\n",STR ( ok /1   "\n"n ;.& 
+            05.5), STR(ADD(1,2)));
+   hi(ADD(Foo, SQR(Bar+1)));
+   int foo123 = 77;
+   printf("%s "
+         "%s %g\n", str(Foo,5), xstr(Foo), CAT(1.5,e3f) + CAT(7,)-CAT(,1));
+   printf("join: \"%s\"\n", p);
+
+   setlocale(LC_ALL, "en_US.utf8");
+
+   printf("wide   L\"%ls\",  U+%x\n", L"abc123 猫,€á💫", L'🦋');
+
+   PUT\
+S\
+("Output ends here\\
+0Not printed" /* After line splicing, the remaining backslash
+               * escapes the 0, ending the string early.
+               */
+);
+
+   CAT(ret,urn) 0;
+}
-- 
cgit v1.2.3