From 47c2cb0ce02f2202b1f04b2ef9ff9a3517faef94 Mon Sep 17 00:00:00 2001
From: Paolo Capriotti
Date: Fri, 30 Mar 2012 12:46:52 +0100
Subject: [PATCH] Add testcase for #5976.
---
testsuite/tests/th/T5976.hs | 3 +++
testsuite/tests/th/T5976.stderr | 5 +++++
testsuite/tests/th/all.T | 1 +
3 files changed, 9 insertions(+)
create mode 100644 testsuite/tests/th/T5976.hs
create mode 100644 testsuite/tests/th/T5976.stderr
diff --git a/testsuite/tests/th/T5976.hs b/testsuite/tests/th/T5976.hs
new file mode 100644
index 0000000000..aa388c764e
--- /dev/null
+++ b/testsuite/tests/th/T5976.hs
@@ -0,0 +1,3 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+$( error ("foo " ++ error "bar") )
diff --git a/testsuite/tests/th/T5976.stderr b/testsuite/tests/th/T5976.stderr
new file mode 100644
index 0000000000..64cf33acef
--- /dev/null
+++ b/testsuite/tests/th/T5976.stderr
@@ -0,0 +1,5 @@
+
+T5976.hs:1:1:
+ Exception when trying to run compile-time code:
+ bar
+ Code: error ((++) "foo " error "bar")
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index b428fcac6d..fbe54f987c 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -232,3 +232,4 @@ test('T5984', extra_clean(['T5984_Lib.hi', 'T5984_Lib.o']),
multimod_compile, ['T5984', '-v0 -ddump-splices'])
test('T5555', extra_clean(['T5555_Lib.hi', 'T5555_Lib.o']),
multimod_compile, ['T5555', '-v0'])
+test('T5976', normal, compile_fail, ['-v0'])
--
GitLab