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
  |