By fteqcc, hello gmqcc

[voretournament/voretournament.git] / misc / source / gmqcc-src / tests / ppcat.qc

diff --git a/misc/source/gmqcc-src/tests/ppcat.qc b/misc/source/gmqcc-src/tests/ppcat.qc
new file mode 100644 (file)
index 0000000..ca92060
--- /dev/null
+++ b/misc/source/gmqcc-src/tests/ppcat.qc
@@ -0,0 +1,13 @@
+#define CAT(X, Y) X##Y
+CAT(hello, world)
+
+#define REDIR(X, Y) CAT(X, Y)
+REDIR(CAT(hello, world), CAT(world, hello))
+
+#define SCONS(X, ...) REDIR(X, __VA_ARGS__)
+SCONS(hello, world)
+
+#define FOO(X) X##X
+#define BAR(X) FOO(X)##FOO(X)
+
+REDIR(BAR(hello), BAR(world))