[commit: testsuite] master: Test Trac #1595 (4ad8e3f)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4ad8e3f8698cea5dbd0f09d51152ce223dbea170

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

commit 4ad8e3f8698cea5dbd0f09d51152ce223dbea170
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jul 1 08:12:41 2011 +0100

    Test Trac #1595

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

 tests/ghc-regress/rename/should_fail/T1595.hs     |    5 +++++
 tests/ghc-regress/rename/should_fail/T1595.stderr |    2 ++
 tests/ghc-regress/rename/should_fail/all.T        |    1 +
 3 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/tests/ghc-regress/rename/should_fail/T1595.hs b/tests/ghc-regress/rename/should_fail/T1595.hs
new file mode 100644
index 0000000..8029878
--- /dev/null
+++ b/tests/ghc-regress/rename/should_fail/T1595.hs
@@ -0,0 +1,5 @@
+module T1595 where
+
+a, b :: Integer -> Tpyo
+a = undefined
+b = undefined
diff --git a/tests/ghc-regress/rename/should_fail/T1595.stderr b/tests/ghc-regress/rename/should_fail/T1595.stderr
new file mode 100644
index 0000000..82ad07c
--- /dev/null
+++ b/tests/ghc-regress/rename/should_fail/T1595.stderr
@@ -0,0 +1,2 @@
+
+T1595.hs:3:20: Not in scope: type constructor or class `Tpyo'
diff --git a/tests/ghc-regress/rename/should_fail/all.T b/tests/ghc-regress/rename/should_fail/all.T
index 40fca63..6b56ae7 100644
--- a/tests/ghc-regress/rename/should_fail/all.T
+++ b/tests/ghc-regress/rename/should_fail/all.T
@@ -80,3 +80,4 @@ test('T4042', normal, compile_fail, [''])
 test('mc13', normal, compile_fail, [''])
 test('mc14', normal, compile_fail, [''])
 test('T5211', normal, compile, [''])  # Warnings only
+test('T1595', normal, compile_fail, [''])