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
32
33
|
# -*- coding: utf-8 -*- #
# frozen_string_literal: true
describe Rouge::Lexers::OCaml do
let(:subject) { Rouge::Lexers::OCaml.new }
describe 'guessing' do
include Support::Guessing
it 'guesses by filename' do
assert_guess :filename => 'foo.ml'
assert_guess :filename => 'foo.mli'
assert_guess :filename => 'foo.mll'
assert_guess :filename => 'foo.mly'
end
it 'guesses by mimetype' do
assert_guess :mimetype => 'text/x-ocaml'
end
end
describe 'lexing' do
include Support::Lexing
it 'recognizes value as a Name' do
assert_tokens_equal 'value', ['Name', 'value']
end
it 'recognizes nonrec as a Keyword' do
assert_tokens_equal 'nonrec', ['Keyword', 'nonrec']
end
end
end
|
