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
|
require 'spec_helper'
describe Parslet::Atoms::Entity do
context "when constructed with str('bar') inside" do
let(:named) { Parslet::Atoms::Entity.new('name', &proc { Parslet.str('bar') }) }
it "should parse 'bar' without raising exceptions" do
named.parse('bar')
end
it "should raise when applied to 'foo'" do
lambda {
named.parse('foo')
}.should raise_error(Parslet::ParseFailed)
end
describe "#inspect" do
it "should return the name of the entity" do
named.inspect.should == 'NAME'
end
end
end
context "when constructed with empty block" do
let(:entity) { Parslet::Atoms::Entity.new('name', &proc { }) }
it "should raise NotImplementedError" do
lambda {
entity.parse('some_string')
}.should raise_error(NotImplementedError)
end
end
context "recursive definition parser" do
class RecDefParser
include Parslet
rule :recdef do
str('(') >> atom >> str(')')
end
rule :atom do
str('a') | str('b') | recdef
end
end
let(:parser) { RecDefParser.new }
it "should parse balanced parens" do
parser.recdef.parse("(((a)))")
end
it "should not throw 'stack level too deep' when printing errors" do
cause = catch_failed_parse { parser.recdef.parse('(((a))') }
cause.ascii_tree
end
end
end
|
