Use awk for testsuite rather than cppawk.

There are ways in which cppawk can be fundamentally broken
which will cause the test suite to appear to succeed, but
without actually running any tests.

1 files changed, 32 insertions, 0 deletions

diff --git a/testsuite.awk b/testsuite.awk
new file mode 100755
index 0000000..2c9fd14
--- /dev/null
+++ b/testsuite.awk
@@ -0,0 +1,32 @@
+#!/usr/bin/awk -f
+
+BEGIN {
+  RS = "--\n"
+  FS = ":\n"
+}
+
+function runtest(id, code, output,
+                 failed)
+{
+  print code > "script.sh"
+  print output > "output"
+
+  failed = 0
+
+  if (output == "ERR\n") {
+    if (system("sh script.sh > /dev/null 2>&1") == 0)
+      failed = 1
+  } else if (system("[ \"$(sh script.sh)\" = \"$(cat output)\" ]") != 0) {
+    failed = 1
+  }
+
+  if (failed)
+    printf("test %s failed (for cppawk = %s)\n", id, ENVIRON["cppawk"])
+
+  close("script.sh")
+  close("output")
+}
+
+$1 {
+  runtest($1, $2, $3)
+}