Relax test TH_addCStub2 so it succeeds on travis.
authorFacundo Domínguez <facundo.dominguez@tweag.io>
Fri, 10 Feb 2017 02:20:17 +0000 (23:20 -0300)
committerFacundo Domínguez <facundo.dominguez@tweag.io>
Fri, 10 Feb 2017 20:39:49 +0000 (17:39 -0300)
Test Plan: ./validate

Reviewers: bgamari, nomeata, austin, mpickering

Reviewed By: mpickering

Subscribers: mpickering, rwbarton, mboes, thomie

Differential Revision: https://phabricator.haskell.org/D3124

testsuite/tests/th/TH_addCStub2.stderr [deleted file]
testsuite/tests/th/all.T

diff --git a/testsuite/tests/th/TH_addCStub2.stderr b/testsuite/tests/th/TH_addCStub2.stderr
deleted file mode 100644 (file)
index ba3277b..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-
-TH_addCStub2.hs:13:13:
-     expected ‘;’, ‘,’ or ‘)’ before ‘{’ token
-          [ "#include <stdio.h>"
-                 ^
-`gcc' failed in phase `C Compiler'. (Exit code: 1)
index 56aca1a..47da8df 100644 (file)
@@ -63,8 +63,18 @@ test('TH_reifyDecl2', normal, compile, ['-v0'])
 test('TH_reifyLocalDefs', normal, compile, ['-v0'])
 test('TH_reifyLocalDefs2', normal, compile, ['-v0'])
 
+
+# Checks if the error output of an appended command has the given pattern.
+def error_has(pattern):
+    swap12 = '3>&1 1>&2 2>&3 3>&-' # Swap file descriptors 1 and 2.
+    # pipefail: make a pipe fail if any of the commands fails
+    # the following fails only if both the command fails and the pattern is found
+    return('bash -o pipefail -c \'! (! "$@" {swap12}) | grep {pattern} {swap12} &> /dev/null\' --'.format(**locals()))
+
 test('TH_addCStub1', normal, compile_and_run, ['-v0'])
-test('TH_addCStub2', normal, compile_fail, ['-v0'])
+test('TH_addCStub2'
+     , [compile_cmd_prefix(error_has('TH_addCStub2.hs:13:'))]
+     , compile_fail, ['-v0'])
 
 test('TH_reifyMkName', normal, compile, ['-v0'])