[commit: testsuite] master: Test Trac #8448 (3342af0)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3342af0a5b033d76107a337c908301452b6ba5e0/testsuite

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

commit 3342af0a5b033d76107a337c908301452b6ba5e0
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Oct 23 12:14:20 2013 +0100

    Test Trac #8448


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

3342af0a5b033d76107a337c908301452b6ba5e0
 tests/rename/should_fail/T8448.hs     |    7 +++++++
 tests/rename/should_fail/T8448.stderr |    2 ++
 tests/rename/should_fail/all.T        |    1 +
 3 files changed, 10 insertions(+)

diff --git a/tests/rename/should_fail/T8448.hs b/tests/rename/should_fail/T8448.hs
new file mode 100644
index 0000000..8b91a0c
--- /dev/null
+++ b/tests/rename/should_fail/T8448.hs
@@ -0,0 +1,7 @@
+{-# LANGUAGE RecordWildCards #-}
+module T8448 where
+
+data R = R {r :: Int}
+f x = undefined [] {r = x}
+
+
diff --git a/tests/rename/should_fail/T8448.stderr b/tests/rename/should_fail/T8448.stderr
new file mode 100644
index 0000000..28bfacf
--- /dev/null
+++ b/tests/rename/should_fail/T8448.stderr
@@ -0,0 +1,2 @@
+
+T8448.hs:5:21: ‛r’ is not a (visible) field of constructor ‛[]’
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index 3b315a7..bf48e14 100644
--- a/tests/rename/should_fail/all.T
+++ b/tests/rename/should_fail/all.T
@@ -110,3 +110,4 @@ test('T7454', normal, compile, [''])
 test('T7906', normal, compile_fail, [''])
 test('T7937', normal, compile_fail, [''])
 test('T7943', normal, compile_fail, [''])
+test('T8448', normal, compile_fail, [''])