diff options
| -rw-r--r-- | testsuite/tests/driver/T8101b.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/driver/T8101b.stderr | 7 | ||||
| -rw-r--r-- | testsuite/tests/driver/all.T | 2 |
3 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/driver/T8101b.hs b/testsuite/tests/driver/T8101b.hs new file mode 100644 index 0000000000..d7bcc1bd5e --- /dev/null +++ b/testsuite/tests/driver/T8101b.hs @@ -0,0 +1,8 @@ + +module A where + +data ABC = A | B | C + +abc :: ABC -> Int +abc x = case x of + A -> 1 diff --git a/testsuite/tests/driver/T8101b.stderr b/testsuite/tests/driver/T8101b.stderr new file mode 100644 index 0000000000..555b0362d0 --- /dev/null +++ b/testsuite/tests/driver/T8101b.stderr @@ -0,0 +1,7 @@ + +T8101b.hs:7:9: Warning: + Pattern match(es) are non-exhaustive + In a case alternative: + Patterns not matched: + B + C diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index 65c3776d60..b79f166ddb 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/tests/driver/all.T @@ -398,6 +398,8 @@ test('T8959a', test('T703', normal, run_command, ['$MAKE -s --no-print-directory T703']) test('T2182', normal, run_command, ['$MAKE -s --no-print-directory T2182']) test('T8101', normal, compile, ['-Wall -fno-code']) +test('T8101b', expect_broken(10600), multimod_compile, + ['T8101b', '-Wall -fno-code']) def build_T9050(name, way): return simple_build(name + '.cmm', way, '-outputdir=. ', 0, '', 0, 0, 0) |