From 580fd746c68415304bb9434b61df777bc88ed3a4 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Sat, 23 Feb 2013 19:13:49 +0000
Subject: Add a test for #7671

---
 testsuite/tests/parser/unicode/T7671.hs | 8 ++++++++
 testsuite/tests/parser/unicode/all.T    | 1 +
 2 files changed, 9 insertions(+)
 create mode 100644 testsuite/tests/parser/unicode/T7671.hs

(limited to 'testsuite')

diff --git a/testsuite/tests/parser/unicode/T7671.hs b/testsuite/tests/parser/unicode/T7671.hs
new file mode 100644
index 0000000000..4eb6a4b501
--- /dev/null
+++ b/testsuite/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/testsuite/tests/parser/unicode/all.T b/testsuite/tests/parser/unicode/all.T
index c8ca793f73..71db26ff53 100644
--- a/testsuite/tests/parser/unicode/all.T
+++ b/testsuite/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, [''])
-- 
cgit v1.2.1