summaryrefslogtreecommitdiff
path: root/tests/test_haskell.py
blob: 515c19e998e17c570e188b92beeb78919722e2c0 (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-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