diff options
| author | Roland Senn <rsx@bluewin.ch> | 2019-03-02 16:53:06 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-03-08 14:11:19 -0500 |
| commit | 2762f94dc27cc065dded7755f99c66cba26683dd (patch) | |
| tree | b35a96cfe8e6619e186a6eb023feefcec07ab988 /testsuite/tests/rename/should_compile | |
| parent | 224a6b864c6aa0d851fcbf79469e5702b1116dbc (diff) | |
| download | haskell-2762f94dc27cc065dded7755f99c66cba26683dd.tar.gz | |
Fix #13839: GHCi warnings do not respect the default module headerwip/magic-carpet-ride
Diffstat (limited to 'testsuite/tests/rename/should_compile')
6 files changed, 34 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/T13839.script b/testsuite/tests/rename/should_compile/T13839.script new file mode 100644 index 0000000000..212d7f7d42 --- /dev/null +++ b/testsuite/tests/rename/should_compile/T13839.script @@ -0,0 +1,4 @@ +:l T13839a.hs +:t nonUsed +:l T13839b.hs +:t nonUsed diff --git a/testsuite/tests/rename/should_compile/T13839.stdout b/testsuite/tests/rename/should_compile/T13839.stdout new file mode 100644 index 0000000000..a700b1441c --- /dev/null +++ b/testsuite/tests/rename/should_compile/T13839.stdout @@ -0,0 +1,5 @@ + +T13839a.hs:10:1: warning: [-Wunused-top-binds (in -Wextra, -Wunused-binds)] + Defined but not used: ‘nonUsed’ +nonUsed :: () +nonUsed :: () diff --git a/testsuite/tests/rename/should_compile/T13839a.hs b/testsuite/tests/rename/should_compile/T13839a.hs new file mode 100644 index 0000000000..74235be147 --- /dev/null +++ b/testsuite/tests/rename/should_compile/T13839a.hs @@ -0,0 +1,10 @@ +{-# OPTIONS_GHC -Wall #-} + +main :: IO () +main = putStrLn used + +used :: String +used = "T13839" + +nonUsed :: () +nonUsed = () diff --git a/testsuite/tests/rename/should_compile/T13839a.stderr b/testsuite/tests/rename/should_compile/T13839a.stderr new file mode 100644 index 0000000000..84b987364a --- /dev/null +++ b/testsuite/tests/rename/should_compile/T13839a.stderr @@ -0,0 +1,3 @@ + +T13839a.hs:10:1: warning: [-Wunused-top-binds (in -Wextra, -Wunused-binds)] + Defined but not used: ‘nonUsed’ diff --git a/testsuite/tests/rename/should_compile/T13839b.hs b/testsuite/tests/rename/should_compile/T13839b.hs new file mode 100644 index 0000000000..da7b0f4073 --- /dev/null +++ b/testsuite/tests/rename/should_compile/T13839b.hs @@ -0,0 +1,10 @@ +{-# OPTIONS_GHC -Wall #-} + +nomain :: IO () +nomain = putStrLn used + +used :: String +used = "T13839" + +nonUsed :: () +nonUsed = () diff --git a/testsuite/tests/rename/should_compile/all.T b/testsuite/tests/rename/should_compile/all.T index 4d427de44f..51684f1eb3 100644 --- a/testsuite/tests/rename/should_compile/all.T +++ b/testsuite/tests/rename/should_compile/all.T @@ -155,6 +155,8 @@ test('T12597', normal, compile, ['']) test('T12548', normal, compile, ['']) test('T13132', normal, compile, ['']) test('T13646', normal, compile, ['']) +test('T13839', combined_output, ghci_script, ['T13839.script']) +test('T13839a', normal, compile, ['']) test('LookupSub', [], multimod_compile, ['LookupSub', '-v0']) test('T14881', [], multimod_compile, ['T14881', '-W']) test('T14487', [], multimod_compile, ['T14487', '-v0']) |