diff options
Diffstat (limited to 'testsuite.cwk')
-rwxr-xr-x | testsuite.cwk | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/testsuite.cwk b/testsuite.cwk deleted file mode 100755 index c70788c..0000000 --- a/testsuite.cwk +++ /dev/null @@ -1,32 +0,0 @@ -#!./cppawk -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) -} |