[commit: testsuite] master: Add a test for #7671 (cf17d90)

[Ian Lynagh]

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

On branch  : master

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

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

commit cf17d9058aaea5cf4c2e8720bc1c489ede473f0c
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Feb 23 19:13:49 2013 +0000

    Add a test for #7671

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

 tests/parser/unicode/T7671.hs |    8 ++++++++
 tests/parser/unicode/all.T    |    1 +
 2 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/tests/parser/unicode/T7671.hs b/tests/parser/unicode/T7671.hs
new file mode 100644
index 0000000..4eb6a4b
--- /dev/null
+++ b/tests/parser/unicode/T7671.hs
@@ -0,0 +1,8 @@
+
+{-#Â LANGUAGE EmptyDataDecls #-}
+-- ^ a U+00A0 no-break space
+module Foo where
+
+v = 5 +Â  3
+--     ^ a U+00A0 no-break space
+
diff --git a/tests/parser/unicode/all.T b/tests/parser/unicode/all.T
index c8ca793..71db26f 100644
--- a/tests/parser/unicode/all.T
+++ b/tests/parser/unicode/all.T
@@ -20,3 +20,4 @@ test('T1744', normal, compile_and_run, [''])
 test('T1103', normal, compile, [''])
 test('T2302', only_ways(['normal']), compile_fail, [''])
 test('T4373', normal, compile, [''])
+test('T7671', expect_broken(7671), compile, [''])