[commit: testsuite] master: Test Trac #7338 (dc7ed4c)

Simon Peyton Jones <[email protected]>
Newsgroups gmane.comp.lang.haskell.cvs.ghc
Message-ID <[email protected]>
Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/dc7ed4c829c063ca03cf16a2e3caee61e2589ee8

>---------------------------------------------------------------

commit dc7ed4c829c063ca03cf16a2e3caee61e2589ee8
Author: Simon Peyton Jones <[email protected]>
Date:   Fri Oct 19 12:03:54 2012 +0100

    Test Trac #7338

>---------------------------------------------------------------

 tests/rename/should_fail/T7338.hs     |    5 +++++
 tests/rename/should_fail/T7338.stderr |    6 ++++++
 tests/rename/should_fail/all.T        |    1 +
 3 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_fail/T7338.hs b/tests/rename/should_fail/T7338.hs
new file mode 100644
index 0000000..f0d1c78
--- /dev/null
+++ b/tests/rename/should_fail/T7338.hs
@@ -0,0 +1,5 @@
+module T7338 where
+
+a, a :: Int
+a :: Int
+a = 0
diff --git a/tests/rename/should_fail/T7338.stderr b/tests/rename/should_fail/T7338.stderr
new file mode 100644
index 0000000..e2a92d3
--- /dev/null
+++ b/tests/rename/should_fail/T7338.stderr
@@ -0,0 +1,6 @@
+
+T7338.hs:4:1:
+    Duplicate type signatures for `a'
+    at T7338.hs:3:1
+       T7338.hs:3:4
+       T7338.hs:4:1
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index b9a3d13..b1540c6 100644
--- a/tests/rename/should_fail/all.T
+++ b/tests/rename/should_fail/all.T
@@ -104,3 +104,4 @@ test('T5951', normal, compile_fail, [''])
 test('T6060', normal, compile_fail, [''])
 test('T6148', normal, compile_fail, [''])
 test('T7164', normal, compile_fail, [''])
+test('T7338', normal, compile_fail, [''])
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.