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