diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-01-16 15:43:03 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-01-16 15:43:03 +0000 |
| commit | cb0f98d0c147bed3337bfea9520cbc4898550de2 (patch) | |
| tree | 2d3a8673269980362c8cab12f5abeae526ab396a /testsuite/tests | |
| parent | a8f94ccfb99d357229be6cc25129e56d7abf853a (diff) | |
| download | haskell-cb0f98d0c147bed3337bfea9520cbc4898550de2.tar.gz | |
Test Trac #5745
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/rename/should_fail/T5745.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T5745.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T5745a.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T5745b.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/all.T | 3 |
5 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_fail/T5745.hs b/testsuite/tests/rename/should_fail/T5745.hs new file mode 100644 index 0000000000..22fafc64cc --- /dev/null +++ b/testsuite/tests/rename/should_fail/T5745.hs @@ -0,0 +1,6 @@ +module T5745 where + +import T5745a + +f :: T +f = f diff --git a/testsuite/tests/rename/should_fail/T5745.stderr b/testsuite/tests/rename/should_fail/T5745.stderr new file mode 100644 index 0000000000..44994c9187 --- /dev/null +++ b/testsuite/tests/rename/should_fail/T5745.stderr @@ -0,0 +1,2 @@ + +T5745.hs:5:6: Not in scope: type constructor or class `T' diff --git a/testsuite/tests/rename/should_fail/T5745a.hs b/testsuite/tests/rename/should_fail/T5745a.hs new file mode 100644 index 0000000000..b3d52bc84c --- /dev/null +++ b/testsuite/tests/rename/should_fail/T5745a.hs @@ -0,0 +1,3 @@ +module T5745a( module T5745b ) where + +import T5745b hiding( T ) diff --git a/testsuite/tests/rename/should_fail/T5745b.hs b/testsuite/tests/rename/should_fail/T5745b.hs new file mode 100644 index 0000000000..74390a690c --- /dev/null +++ b/testsuite/tests/rename/should_fail/T5745b.hs @@ -0,0 +1,4 @@ +module T5745b where + +data T = MkT +data S = MkS diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T index 1776777b3c..c0e4f54c54 100644 --- a/testsuite/tests/rename/should_fail/all.T +++ b/testsuite/tests/rename/should_fail/all.T @@ -96,3 +96,6 @@ test('T5533', normal, compile_fail, ['']) test('T5589', normal, compile_fail, ['']) test('Misplaced', normal, compile_fail, ['']) test('T5657', normal, compile_fail, ['']) +test('T5745', + extra_clean(['T5745a.hi', 'T5745a.o', 'T5745b.hi', 'T5745b.o']), + multimod_compile_fail, ['T5745', '-v0']) |