Commit e79ef75d authored by Facundo Domínguez's avatar Facundo Domínguez

Relax test TH_addCStub2 so it succeeds on travis.

Test Plan: ./validate

Reviewers: bgamari, nomeata, austin, mpickering

Reviewed By: mpickering

Subscribers: mpickering, rwbarton, mboes, thomie

Differential Revision: https://phabricator.haskell.org/D3124
parent 283a3465
TH_addCStub2.hs:13:13:
expected ‘;’, ‘,’ or ‘)’ before ‘{’ token
[ "#include <stdio.h>"
^
`gcc' failed in phase `C Compiler'. (Exit code: 1)
......@@ -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'])
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment