summaryrefslogtreecommitdiff
path: root/tests/test_haskell.py
blob: f67db1fb7a2e750da35c4c613ad33bf440722636 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
# -*- coding: utf-8 -*-
"""
    Haskell Tests
    ~~~~~~~~~~~~~

    :copyright: Copyright 2006-2020 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