diff options
author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-07-25 01:36:20 +0200 |
---|---|---|
committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-07-25 01:36:20 +0200 |
commit | 4036c1f110578f8e2813295116b79a5a06e2bf59 (patch) | |
tree | 0ddd59bd0a09a84a92c5befbc7832e21a4900e81 /testsuite/tests/stranal | |
parent | d068220f4249cce66ed5b6cc5504f79e7c8c0184 (diff) | |
download | haskell-4036c1f110578f8e2813295116b79a5a06e2bf59.tar.gz |
Testsuite: fix T10482a
Diffstat (limited to 'testsuite/tests/stranal')
-rw-r--r-- | testsuite/tests/stranal/should_compile/all.T | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/stranal/should_compile/all.T b/testsuite/tests/stranal/should_compile/all.T index 97c3a6fd3f..0f57c3bb62 100644 --- a/testsuite/tests/stranal/should_compile/all.T +++ b/testsuite/tests/stranal/should_compile/all.T @@ -37,8 +37,10 @@ test('T8743', [ extra_clean(['T8743.o-boot', 'T8743a.hi', 'T8743a.o', 'T8743.hi- # The intent here is to check that $wfoo has type # $wfoo :: Int# -> Int# -> Int # with two unboxed args. See Trac #10482 for background -test('T10482', [ grepCoreString(r'wfoo.*Int') ], compile, ['-dppr-cols=200 -ddump-simpl']) -test('T10482a', [ grepCoreString(r'wf.*Int') ], compile, ['-dppr-cols=200 -ddump-simpl']) +# +# Set -dppr-cols to ensure output doesn't wrap +test('T10482', [ grepCoreString(r'wfoo.*Int#') ], compile, ['-dppr-cols=200 -ddump-simpl']) +test('T10482a', [ grepCoreString(r'wf.*Int#') ], compile, ['-dppr-cols=200 -ddump-simpl']) test('T9208', when(compiler_debugged(), expect_broken(9208)), compile, ['']) # T9208 fails (and should do so) if you have assertion checking on in the compiler |