Commit d911c3b3 authored by ian@well-typed.com's avatar ian@well-typed.com

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

parent c1881fa5
......@@ -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
module T2507 where
foo :: Int
foo = ()
T2507.hs:5:7:
Couldn't match expected type `Int' with actual type `()'
In the expression: ()
In an equation for `foo': foo = ()
......@@ -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'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment