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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
# frozen_string_literal: true
module Rouge
module Lexers
class Tap < RegexLexer
title 'TAP'
desc 'Test Anything Protocol'
tag 'tap'
aliases 'tap'
filenames '*.tap'
mimetypes 'text/x-tap', 'application/x-tap'
state :root do
# A TAP version may be specified.
rule %r/^TAP version \d+\n/, Name::Namespace
# Specify a plan with a plan line.
rule %r/^1\.\.\d+/, Keyword::Declaration, :plan
# A test failure
rule %r/^(not ok)([^\S\n]*)(\d*)/ do
groups Generic::Error, Text, Literal::Number::Integer
push :test
end
# A test success
rule %r/^(ok)([^\S\n]*)(\d*)/ do
groups Keyword::Reserved, Text, Literal::Number::Integer
push :test
end
# Diagnostics start with a hash.
rule %r/^#.*\n/, Comment
# TAP's version of an abort statement.
rule %r/^Bail out!.*\n/, Generic::Error
# # TAP ignores any unrecognized lines.
rule %r/^.*\n/, Text
end
state :plan do
# Consume whitespace (but not newline).
rule %r/[^\S\n]+/, Text
# A plan may have a directive with it.
rule %r/#/, Comment, :directive
# Or it could just end.
rule %r/\n/, Comment, :pop!
# Anything else is wrong.
rule %r/.*\n/, Generic::Error, :pop!
end
state :test do
# Consume whitespace (but not newline).
rule %r/[^\S\n]+/, Text
# A test may have a directive with it.
rule %r/#/, Comment, :directive
rule %r/\S+/, Text
rule %r/\n/, Text, :pop!
end
state :directive do
# Consume whitespace (but not newline).
rule %r/[^\S\n]+/, Comment
# Extract todo items.
rule %r/(?i)\bTODO\b/, Comment::Preproc
# Extract skip items.
rule %r/(?i)\bSKIP\S*/, Comment::Preproc
rule %r/\S+/, Comment
rule %r/\n/ do
token Comment
pop! 2
end
end
end
end
end
|
