[commit: testsuite] master: Another test for Trac #7338, duplicate type sigs (381d756)

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/381d75691ac6afef8e15eac96fd15aada6855460

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

commit 381d75691ac6afef8e15eac96fd15aada6855460
Author: Simon Peyton Jones <[email protected]>
Date:   Fri Oct 26 12:35:52 2012 +0100

    Another test for Trac #7338, duplicate type sigs

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

 tests/rename/should_fail/T7338a.hs     |   11 +++++++++++
 tests/rename/should_fail/T7338a.stderr |   10 ++++++++++
 tests/rename/should_fail/all.T         |    1 +
 3 files changed, 22 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_fail/T7338a.hs b/tests/rename/should_fail/T7338a.hs
new file mode 100644
index 0000000..fac704c
--- /dev/null
+++ b/tests/rename/should_fail/T7338a.hs
@@ -0,0 +1,11 @@
+module T7338a where
+
+a, b :: Int
+a = undefined
+b = undefined
+
+c, a :: Int
+c = undefined
+
+c, d :: Int
+d = undefined
\ No newline at end of file
diff --git a/tests/rename/should_fail/T7338a.stderr b/tests/rename/should_fail/T7338a.stderr
new file mode 100644
index 0000000..58807dc
--- /dev/null
+++ b/tests/rename/should_fail/T7338a.stderr
@@ -0,0 +1,10 @@
+
+T7338a.hs:7:4:
+    Duplicate type signatures for `a'
+    at T7338a.hs:3:1
+       T7338a.hs:7:4
+
+T7338a.hs:10:1:
+    Duplicate type signatures for `c'
+    at T7338a.hs:7:1
+       T7338a.hs:10:1
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index b1540c6..a8aea71 100644
--- a/tests/rename/should_fail/all.T
+++ b/tests/rename/should_fail/all.T
@@ -105,3 +105,4 @@ test('T6060', normal, compile_fail, [''])
 test('T6148', normal, compile_fail, [''])
 test('T7164', normal, compile_fail, [''])
 test('T7338', normal, compile_fail, [''])
+test('T7338a', normal, compile_fail, [''])