[commit: testsuite] master: Add a test for #8101 (48d39bd)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/48d39bdb70e991ed634a60b0fdbcf05c05d43a00

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

commit 48d39bdb70e991ed634a60b0fdbcf05c05d43a00
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Jul 28 17:01:38 2013 +0100

    Add a test for #8101

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

 tests/driver/T8101.hs     |    8 ++++++++
 tests/driver/T8101.stderr |    7 +++++++
 tests/driver/all.T        |    2 ++
 3 files changed, 17 insertions(+)

diff --git a/tests/driver/T8101.hs b/tests/driver/T8101.hs
new file mode 100644
index 0000000..d7bcc1b
--- /dev/null
+++ b/tests/driver/T8101.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/tests/driver/T8101.stderr b/tests/driver/T8101.stderr
new file mode 100644
index 0000000..6fda857
--- /dev/null
+++ b/tests/driver/T8101.stderr
@@ -0,0 +1,7 @@
+
+T8101.hs:7:9: Warning:
+    Pattern match(es) are non-exhaustive
+    In a case alternative:
+        Patterns not matched:
+            B
+            C
diff --git a/tests/driver/all.T b/tests/driver/all.T
index 34e57a5..dc51535 100644
--- a/tests/driver/all.T
+++ b/tests/driver/all.T
@@ -378,3 +378,5 @@ test('T2507',
      ['$MAKE -s --no-print-directory T2507'])
 
 test('T703', normal, run_command, ['$MAKE -s --no-print-directory T703'])
+test('T8101', normal, compile, ['-Wall -fno-code'])
+