summaryrefslogtreecommitdiff
path: root/testsuite/tests/runghc
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/runghc')
-rw-r--r--testsuite/tests/runghc/T17171a.stderr4
-rw-r--r--testsuite/tests/runghc/all.T7
2 files changed, 5 insertions, 6 deletions
diff --git a/testsuite/tests/runghc/T17171a.stderr b/testsuite/tests/runghc/T17171a.stderr
index 5079cf4075..bf11f1e1f4 100644
--- a/testsuite/tests/runghc/T17171a.stderr
+++ b/testsuite/tests/runghc/T17171a.stderr
@@ -1,5 +1 @@
-Main.hs:1:1: error:
The IO action ‘main’ is not exported by module ‘Main’
- |
-1 | module Main () where
- | ^
diff --git a/testsuite/tests/runghc/all.T b/testsuite/tests/runghc/all.T
index 33174d04dc..4503e8c996 100644
--- a/testsuite/tests/runghc/all.T
+++ b/testsuite/tests/runghc/all.T
@@ -6,8 +6,11 @@ test('T11247', [req_interp, expect_broken(11247)], makefile_test, [])
test('T6132', [when(opsys('darwin'), expect_broken(6132))], compile, [''])
-test('T17171a', [req_interp, expect_fail], makefile_test, [])
-test('T17171b', req_interp, makefile_test, [])
+test('T17171a',
+ [req_interp, exit_code(2), ignore_stdout, grep_errmsg(r'main')],
+ run_command, ['$MAKE -s --no-print-directory T17171a'])
+test('T17171b', req_interp, run_command,
+ ['$MAKE -s --no-print-directory T17171b'])
test('T-signals-child',
[ when(opsys('mingw32'), skip), req_interp