A more realistic preprocessor concatenation test.

diff --git a/tests/ppcat.qc b/tests/ppcat.qc
index 2056632054591fb7c86c781da3d38f07e3e04488..ca92060d2005d71570aac8827eab4713296a9e68 100644 (file)
--- a/tests/ppcat.qc
+++ b/tests/ppcat.qc
@@ -1,2 +1,13 @@
 #define CAT(X, Y) X##Y
 CAT(hello, world)
 #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))

diff --git a/tests/ppcat.tmpl b/tests/ppcat.tmpl
index 8f28fdb5d5601b7c75be35ac0870beb39b29c8b8..0844a8d5d85de00ce6587abe0ca3512d4e15f2b8 100644 (file)
--- a/tests/ppcat.tmpl
+++ b/tests/ppcat.tmpl
@@ -2,5 +2,9 @@ I: ppcat.qc
 D: test preprocessor concatenation
 T: -pp
 C: -std=gmqcc
 D: test preprocessor concatenation
 T: -pp
 C: -std=gmqcc

-M: helloworld

 F: -no-defs
 F: -no-defs

+M: helloworld
+M: helloworldworldhello
+M: helloworld
+M: hellohellohellohelloworldworldworldworld
+