Add test suite for #8757

719108f8 · cactus · e0a55415 · 719108f8 · 719108f8
Commit 719108f8 authored Feb 09, 2014 by cactus
Showing with 11 additions and 0 deletions

testsuite/tests/patsyn/should_fail/local.hs testsuite/tests/patsyn/should_fail/local.hs +7 -0

testsuite/tests/patsyn/should_fail/local.stderr testsuite/tests/patsyn/should_fail/local.stderr +4 -0

No files found.
--- a/testsuite/tests/patsyn/should_fail/local.hs
+++ b/testsuite/tests/patsyn/should_fail/local.hs
+{-# LANGUAGE PatternSynonyms #-}
+module ShouldFail where
+
+varWithLocalPatSyn x = case x of
+    P -> ()
+  where
+    pattern P = ()
--- a/testsuite/tests/patsyn/should_fail/local.stderr
+++ b/testsuite/tests/patsyn/should_fail/local.stderr
+
+local.hs:7:5:
+    Illegal pattern synonym declaration
+      Pattern synonym declarations are only valid in the top-level scope