[commit: testsuite] master: Test #8430 (de7b69e)

[git at git.haskell.org]

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

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

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

commit de7b69ec772ac90bdf157b22a789249298a04a2c
Author: Krzysztof Gogolewski <krz.gogolewski at gmail.com>
Date:   Sat Oct 12 00:54:09 2013 +0200

    Test #8430


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

de7b69ec772ac90bdf157b22a789249298a04a2c
 tests/parser/should_fail/T8430.lhs    |    6 ++++++
 tests/parser/should_fail/T8430.stderr |    2 ++
 tests/parser/should_fail/all.T        |    1 +
 3 files changed, 9 insertions(+)

diff --git a/tests/parser/should_fail/T8430.lhs b/tests/parser/should_fail/T8430.lhs
new file mode 100644
index 0000000..4c7892a
--- /dev/null
+++ b/tests/parser/should_fail/T8430.lhs
@@ -0,0 +1,6 @@
+This should not compile:
+
+\end{code}
+
+> module T8430 where
+> main = putStr "a"
diff --git a/tests/parser/should_fail/T8430.stderr b/tests/parser/should_fail/T8430.stderr
new file mode 100644
index 0000000..2d7b703
--- /dev/null
+++ b/tests/parser/should_fail/T8430.stderr
@@ -0,0 +1,2 @@
+T8430.lhs line 3: unlit: spurious \end{code}
+
diff --git a/tests/parser/should_fail/all.T b/tests/parser/should_fail/all.T
index f6d5716..255d2a4 100644
--- a/tests/parser/should_fail/all.T
+++ b/tests/parser/should_fail/all.T
@@ -80,3 +80,4 @@ test('T5425', normal, compile_fail, [''])
 test('T984', normal, compile_fail, [''])
 test('T7848', normal, compile_fail, ['-dppr-user-length=100'])
 test('ExportCommaComma', normal, compile_fail, [''])
+test('T8430', literate, compile_fail, [''])