diff options
| author | Reid Barton <rwbarton@gmail.com> | 2014-07-30 21:44:42 -0400 |
|---|---|---|
| committer | Reid Barton <rwbarton@gmail.com> | 2014-07-30 21:50:34 -0400 |
| commit | b06e83dee5f7ec32efb4c424b0450a6c55359239 (patch) | |
| tree | 7e1d2e0917036db011f0f9f62c8b289e03f93484 /testsuite | |
| parent | 6640635e6e2654f0acd8f10e0d02a8bd1c8296ff (diff) | |
| download | haskell-b06e83dee5f7ec32efb4c424b0450a6c55359239.tar.gz | |
Make mod73 test insensitive to minor variations (#9325)
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/module/all.T | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/testsuite/tests/module/all.T b/testsuite/tests/module/all.T index 926cbb5448..cb5ce2fe8d 100644 --- a/testsuite/tests/module/all.T +++ b/testsuite/tests/module/all.T @@ -91,7 +91,16 @@ test('mod69', normal, compile_fail, ['']) test('mod70', normal, compile_fail, ['']) test('mod71', normal, compile_fail, ['']) test('mod72', normal, compile_fail, ['']) -test('mod73', normal, compile_fail, ['']) + +# The order of suggestions in the output for test mod73 +# is subject to variation depending on the optimization level +# that GHC was built with (and probably minor changes to GHC too). +# This seems okay since there is unsafePerformIO under the hood +# in FastString. Allow any order with an extra normaliser. (See #9325.) +def normalise_mod73_error(x): + return x.replace('LT','XX',1).replace('EQ','XX',1).replace('GT','XX',1) +test('mod73', normalise_errmsg_fun(normalise_mod73_error), compile_fail, ['']) + test('mod74', normal, compile_fail, ['']) test('mod75', normal, compile, ['']) test('mod76', normal, compile_fail, ['']) |