[commit: testsuite] master: Add a test for #2507; we should get `' quotes if unicode quotes don't work (9689124)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/968912411dbaa18d60235bb7039ae6c47cdd2845

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

commit 968912411dbaa18d60235bb7039ae6c47cdd2845
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Feb 24 15:54:20 2013 +0000

    Add a test for #2507; we should get `' quotes if unicode quotes don't work

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

 tests/driver/Makefile     |    4 ++++
 tests/driver/T2507.hs     |    5 +++++
 tests/driver/T2507.stderr |    5 +++++
 tests/driver/all.T        |    1 +
 4 files changed, 15 insertions(+), 0 deletions(-)

diff --git a/tests/driver/Makefile b/tests/driver/Makefile
index e412002..2a06257 100644
--- a/tests/driver/Makefile
+++ b/tests/driver/Makefile
@@ -540,3 +540,7 @@ T7563:
 T6037:
 	-LC_ALL=C "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T6037.hs
 
+.PHONY: T2507
+T2507:
+	-LC_ALL=C "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T2507.hs
+
diff --git a/tests/driver/T2507.hs b/tests/driver/T2507.hs
new file mode 100644
index 0000000..8f6c0c0
--- /dev/null
+++ b/tests/driver/T2507.hs
@@ -0,0 +1,5 @@
+
+module T2507 where
+
+foo :: Int
+foo = ()
diff --git a/tests/driver/T2507.stderr b/tests/driver/T2507.stderr
new file mode 100644
index 0000000..925a870
--- /dev/null
+++ b/tests/driver/T2507.stderr
@@ -0,0 +1,5 @@
+
+T2507.hs:5:7:
+    Couldn't match expected type `Int' with actual type `()'
+    In the expression: ()
+    In an equation for `foo': foo = ()
diff --git a/tests/driver/all.T b/tests/driver/all.T
index 4c81ba5..609e8ea 100644
--- a/tests/driver/all.T
+++ b/tests/driver/all.T
@@ -366,4 +366,5 @@ test('T7563', when(unregisterised(), skip), run_command,
      ['$MAKE -s --no-print-directory T7563'])
 test('T6037', expect_broken(6037), run_command,
      ['$MAKE -s --no-print-directory T6037'])
+test('T2507', normal, run_command, ['$MAKE -s --no-print-directory T2507'])