summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-03-04 17:41:45 -0500
committerBen Gamari <ben@smart-cactus.org>2022-03-04 18:29:31 -0500
commit1a4f7d94e338d9ab5720107702d4de80ea070d67 (patch)
tree201b94f51cd3b9c61d626cc12b3add01ae2ca2d2
parentee6a4e573509c7f90c87cbb13c4d47de77dccc2c (diff)
downloadhaskell-wip/T21169.tar.gz
testsuite: Add test for #21169wip/T21169
-rw-r--r--testsuite/tests/codeGen/should_compile/T21169.hs4
-rw-r--r--testsuite/tests/codeGen/should_compile/all.T5
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_compile/T21169.hs b/testsuite/tests/codeGen/should_compile/T21169.hs
new file mode 100644
index 0000000000..e1beece06a
--- /dev/null
+++ b/testsuite/tests/codeGen/should_compile/T21169.hs
@@ -0,0 +1,4 @@
+module T21169 where
+
+hello :: Int
+hello = error "hello world"
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 9985580e78..dd4d3071e0 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -104,3 +104,8 @@ test('T15570',
# warning: integer constant is so large that it is unsigned
test('T18614', normal, compile, [''])
+
+check_error_not_caffy = 'TODO'
+test('T21169', normal,
+ multimod_compile_filter,
+ ['T21169', '-O -c -ddump-cafanal', check_error_not_caffy])