diff options
| author | Facundo DomÃnguez <facundo.dominguez@tweag.io> | 2015-05-25 21:07:54 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-05-25 21:07:54 -0500 |
| commit | 70f1ca431c948be468f7f9a86892fd81c8f1a64b (patch) | |
| tree | edcb9567a7c514c268b01cb756bbce427d7f77ca /testsuite | |
| parent | 326989ed06e6ad52d1cc2307be19d21b66b95813 (diff) | |
| download | haskell-70f1ca431c948be468f7f9a86892fd81c8f1a64b.tar.gz | |
Fix ghci-way tests of -XStaticPointers.
Summary: Add -fobject-code to StaticPointers tests in ghci.
Test Plan: validate
Reviewers: austin
Reviewed By: austin
Subscribers: bgamari, thomie, mboes
Differential Revision: https://phabricator.haskell.org/D905
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/all.T | 4 | ||||
| -rw-r--r-- | testsuite/tests/deSugar/should_run/all.T | 5 | ||||
| -rw-r--r-- | testsuite/tests/rts/all.T | 8 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 4 |
4 files changed, 16 insertions, 5 deletions
diff --git a/testsuite/tests/codeGen/should_run/all.T b/testsuite/tests/codeGen/should_run/all.T index 41d18e5cef..59e4dca6b2 100644 --- a/testsuite/tests/codeGen/should_run/all.T +++ b/testsuite/tests/codeGen/should_run/all.T @@ -115,7 +115,9 @@ test('T7953', reqlib('random'), compile_and_run, ['']) test('T8256', normal, compile_and_run, ['-dcore-lint -O1']) test('T6084',normal, compile_and_run, ['-O2']) test('CgStaticPointers', - [ when(compiler_lt('ghc', '7.9'), skip) ], + [ when(compiler_lt('ghc', '7.9'), skip) + , when(doing_ghci(), extra_hc_opts('-fobject-code')) + ], compile_and_run, ['']) test('StaticArraySize', normal, compile_and_run, ['-O2']) test('StaticByteArraySize', normal, compile_and_run, ['-O2']) diff --git a/testsuite/tests/deSugar/should_run/all.T b/testsuite/tests/deSugar/should_run/all.T index 87ebe8ecaf..57878161a3 100644 --- a/testsuite/tests/deSugar/should_run/all.T +++ b/testsuite/tests/deSugar/should_run/all.T @@ -41,6 +41,9 @@ test('T5742', normal, compile_and_run, ['']) test('DsLambdaCase', when(compiler_lt('ghc', '7.5'), skip), compile_and_run, ['']) test('DsMultiWayIf', when(compiler_lt('ghc', '7.5'), skip), compile_and_run, ['']) test('DsStaticPointers', - when(compiler_lt('ghc', '7.9'), skip), compile_and_run, ['']) + [ when(compiler_lt('ghc', '7.9'), skip) + , when(doing_ghci(), extra_hc_opts('-fobject-code')) + ], + compile_and_run, ['']) test('T8952', normal, compile_and_run, ['']) test('T9844', normal, compile_and_run, ['']) diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index 3965ee4f01..d823c2ba9b 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -255,10 +255,14 @@ test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip) compile_and_run, ['-rdynamic -package ghc']) test('GcStaticPointers', - [ when(compiler_lt('ghc', '7.9'), skip) ], + [ when(compiler_lt('ghc', '7.9'), skip) + , when(doing_ghci(), extra_hc_opts('-fobject-code')) + ], compile_and_run, ['']) test('ListStaticPointers', - [ when(compiler_lt('ghc', '7.9'), skip) ], + [ when(compiler_lt('ghc', '7.9'), skip) + , when(doing_ghci(), extra_hc_opts('-fobject-code')) + ], compile_and_run, ['']) # 251 = RTS exit code for "out of memory" diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 43c3e89b02..084ace54d0 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -308,7 +308,9 @@ test('T8577', ['T8577', '-v0 ' + config.ghc_th_way_flags]) test('T8625', normal, ghci_script, ['T8625.script']) test('TH_StaticPointers', - [ when(compiler_lt('ghc', '7.9'), skip) ], + [ when(compiler_lt('ghc', '7.9'), skip) + , when(doing_ghci(), extra_hc_opts('-fobject-code')) + ], compile_and_run, ['']) test('TH_StaticPointers02', [ when(compiler_lt('ghc', '7.9'), skip) ], |