ref: 52bfbad097a91a532b8ebcc70462151d30c8d364
parent: 8426988151d94d69a482e6275777d3f7275dbabe
author: Roberto E. Vargas Caballero <k0ga@shike2.com>
date: Tue Mar 22 05:53:57 EDT 2022
tests/cc: Add 0200-cpp.c
--- /dev/null
+++ b/tests/cc/execute/0200-cpp.c
@@ -1,0 +1,91 @@
+/* taken from ISO/IEC 9899:1999 Section 6.10.3.5 p6 */
+
+#define str(s) # s
+#define xstr(s) str(s)
+#define debug(s, t) test1("x" # s "= %d, x" # t "= %d", \+ x ## s, x ## t)
+#define INCFILE(n) vers ## n
+#define vers2 0200-cpp
+#define glue(a, b) a ## b
+#define xglue(a, b) glue(a, b)
+#define HIGHLOW "hello"
+#define LOW LOW ", world"
+
+int
+test1(char *s, int x, int y)
+{+ int i;
+
+ for (i = 0; s[i]; i++) {+ if (s[i] != "x1= %d, x2= %d"[i])
+ return 0;
+ }
+ if (x + y != 3)
+ return 0;
+ return 1;
+}
+
+int
+test2(char *s1, char *s2)
+{+ int i;
+
+ for (i = 0; s1[i]; i++) {+ if (s1[i] != s2[i])
+ return 0;
+ }
+ return s1[i] == '\0' && s2[i] == '\0';
+}
+
+int
+test4(char *s)
+{+ int i;
+
+ for (i = 0; s[i]; i++) {+ if (s[i] != "hello"[i])
+ return 0;
+ }
+
+ return 1;
+}
+
+int
+test5(char *s)
+{+ int i;
+
+ for (i = 0; s[i]; i++) {+ if (s[i] != "hello, world"[i])
+ return 0;
+ }
+
+ return 1;
+}
+
+int
+main()
+{+ int x1 = 1, x2 = 2;
+ char *s = "strncmp(\"abc\\0d\", \"abc\", '\\4') == 0: @\n";
+
+ if (!debug(1, 2))
+ return 1;
+
+ if (!test2(str(strncmp("abc\0d", "abc", '\4') // this goes away+== 0) str(: @\n), s))
+ return 2;
+
+#include xstr(INCFILE(2).h)
+
+ if (x != 2)
+ return 3;
+
+ if (!test4(glue(HIGH, LOW)))
+ return 4;
+
+ if (!test5(xglue(HIGH, LOW)))
+ return 5;
+
+ return 0;
+}
--- /dev/null
+++ b/tests/cc/execute/0200-cpp.h
@@ -1,0 +1,1 @@
+int x = 2;
--- a/tests/cc/execute/scc-tests.lst
+++ b/tests/cc/execute/scc-tests.lst
@@ -190,3 +190,4 @@
0197-cppcomment.c
0198-nullcpp.c
0199-voidpcast.c [TODO]
+0200-cpp.c [TODO]