From 60f1c6fda51d40e8f358348ee7b6161f0eea32b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Arthur=20Fayzrakhmanov=20=28=D0=90=D1=80=D1=82=D1=83=D1=80?=
 =?UTF-8?q?=20=D0=A4=D0=B0=D0=B9=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD?=
 =?UTF-8?q?=D0=BE=D0=B2=29?= <heraldhoi@gmail.com>
Date: Sun, 21 Feb 2016 14:51:36 +0500
Subject: [PATCH] Add test sources for haskell-trigger-suggestions

---
 .../haskell-mode-trigger-suggestions-01-orphan-instance.hs  | 3 +++
 ...askell-mode-trigger-suggestions-02-use-to-permit-this.hs | 6 ++++++
 tests/haskell-mode-trigger-suggestions-03-use-to-allow.hs   | 3 +++
 ...ode-trigger-suggestions-04-use-if-you-want-to-disable.hs | 6 ++++++
 4 files changed, 18 insertions(+)
 create mode 100644 tests/haskell-mode-trigger-suggestions-01-orphan-instance.hs
 create mode 100644 tests/haskell-mode-trigger-suggestions-02-use-to-permit-this.hs
 create mode 100644 tests/haskell-mode-trigger-suggestions-03-use-to-allow.hs
 create mode 100644 tests/haskell-mode-trigger-suggestions-04-use-if-you-want-to-disable.hs

diff --git a/tests/haskell-mode-trigger-suggestions-01-orphan-instance.hs b/tests/haskell-mode-trigger-suggestions-01-orphan-instance.hs
new file mode 100644
index 000000000..09490494c
--- /dev/null
+++ b/tests/haskell-mode-trigger-suggestions-01-orphan-instance.hs
@@ -0,0 +1,3 @@
+module A where
+
+instance Num Char
diff --git a/tests/haskell-mode-trigger-suggestions-02-use-to-permit-this.hs b/tests/haskell-mode-trigger-suggestions-02-use-to-permit-this.hs
new file mode 100644
index 000000000..f26a162da
--- /dev/null
+++ b/tests/haskell-mode-trigger-suggestions-02-use-to-permit-this.hs
@@ -0,0 +1,6 @@
+module A where
+
+data A = A { a :: Char }
+
+fn :: A -> A
+fn A{..} = undefined
diff --git a/tests/haskell-mode-trigger-suggestions-03-use-to-allow.hs b/tests/haskell-mode-trigger-suggestions-03-use-to-allow.hs
new file mode 100644
index 000000000..f33ece592
--- /dev/null
+++ b/tests/haskell-mode-trigger-suggestions-03-use-to-allow.hs
@@ -0,0 +1,3 @@
+module A where
+
+type family Emacs x :: *
diff --git a/tests/haskell-mode-trigger-suggestions-04-use-if-you-want-to-disable.hs b/tests/haskell-mode-trigger-suggestions-04-use-if-you-want-to-disable.hs
new file mode 100644
index 000000000..4371acfff
--- /dev/null
+++ b/tests/haskell-mode-trigger-suggestions-04-use-if-you-want-to-disable.hs
@@ -0,0 +1,6 @@
+module A where
+
+class A a where
+  fn :: a -> a
+
+instance A String