diff options
Diffstat (limited to 'testsuite/tests/rename')
-rw-r--r-- | testsuite/tests/rename/should_fail/T19781.hs | 6 | ||||
-rw-r--r-- | testsuite/tests/rename/should_fail/T19781.stderr | 6 | ||||
-rw-r--r-- | testsuite/tests/rename/should_fail/T19781_A.hs | 7 | ||||
-rw-r--r-- | testsuite/tests/rename/should_fail/T19781_A.hs-boot | 7 | ||||
-rw-r--r-- | testsuite/tests/rename/should_fail/all.T | 1 |
5 files changed, 27 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_fail/T19781.hs b/testsuite/tests/rename/should_fail/T19781.hs new file mode 100644 index 0000000000..1fbf64f24d --- /dev/null +++ b/testsuite/tests/rename/should_fail/T19781.hs @@ -0,0 +1,6 @@ +module T19781 where + +import {-# SOURCE #-} T19781_A + +z :: Int +z = x + y diff --git a/testsuite/tests/rename/should_fail/T19781.stderr b/testsuite/tests/rename/should_fail/T19781.stderr new file mode 100644 index 0000000000..1e468715aa --- /dev/null +++ b/testsuite/tests/rename/should_fail/T19781.stderr @@ -0,0 +1,6 @@ + +T19781_A.hs-boot:4:1: error: + Bindings in hs-boot files are not allowed + +T19781_A.hs-boot:7:1: error: + Bindings in hs-boot files are not allowed diff --git a/testsuite/tests/rename/should_fail/T19781_A.hs b/testsuite/tests/rename/should_fail/T19781_A.hs new file mode 100644 index 0000000000..9cde0c39ce --- /dev/null +++ b/testsuite/tests/rename/should_fail/T19781_A.hs @@ -0,0 +1,7 @@ +module T19781_A where + +x :: Int +x = 3 + +y :: Int +y = 4 diff --git a/testsuite/tests/rename/should_fail/T19781_A.hs-boot b/testsuite/tests/rename/should_fail/T19781_A.hs-boot new file mode 100644 index 0000000000..9cde0c39ce --- /dev/null +++ b/testsuite/tests/rename/should_fail/T19781_A.hs-boot @@ -0,0 +1,7 @@ +module T19781_A where + +x :: Int +x = 3 + +y :: Int +y = 4 diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T index 475aef9c6c..a5dd61e575 100644 --- a/testsuite/tests/rename/should_fail/all.T +++ b/testsuite/tests/rename/should_fail/all.T @@ -164,3 +164,4 @@ test('T18240a', normal, compile_fail, ['']) test('T18240b', normal, compile_fail, ['']) test('T18740a', normal, compile_fail, ['']) test('T18740b', normal, compile_fail, ['']) +test('T19781', [extra_files(['T19781_A.hs', 'T19781_A.hs-boot'])], multimod_compile_fail, ['T19781', '-v0']) |