1 files changed, 31 insertions, 0 deletions
diff --git a/tests/test_haskell.py b/tests/test_haskell.py
new file mode 100644
index 00000000..515c19e9
--- /dev/null
+++ b/tests/test_haskell.py
@@ -0,0 +1,31 @@
+# -*- coding: utf-8 -*-
+"""
+    Haskell Tests
+    ~~~~~~~~~~~~~
+
+    :copyright: Copyright 2006-2019 by the Pygments team, see AUTHORS.
+    :license: BSD, see LICENSE for details.
+"""
+
+import pytest
+
+from pygments.lexers import HaskellLexer
+from pygments.token import Token
+
+
+@pytest.fixture(scope='module')
+def lexer():
+    yield HaskellLexer()
+
+
+def test_promoted_names(lexer):
+    fragment = "'x ': '[]\n"
+    tokens = [
+        (Token.Name, '\'x'),
+        (Token.Text, ' '),
+        (Token.Keyword.Type, '\':'),
+        (Token.Text, ' '),
+        (Token.Keyword.Type, '\'[]'),
+        (Token.Text, '\n'),
+    ]
+    assert list(lexer.get_tokens(fragment)) == tokens