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
89
|
#include "parser.hpp"
#include <gtest/gtest.h>
static
io::FD string_pipe(ZString sz)
{
io::FD rfd, wfd;
if (-1 == io::FD::pipe(rfd, wfd))
return io::FD();
if (sz.size() != wfd.write(sz.c_str(), sz.size()))
{
rfd.close();
wfd.close();
return io::FD();
}
wfd.close();
return rfd;
}
TEST(sexpr, parser)
{
sexpr::SExpr s;
io::LineSpan span;
sexpr::Lexer lexer("<parser-test1>", string_pipe(" foo( ) 123\"\" \n"));
EXPECT_TRUE(sexpr::parse(lexer, s));
EXPECT_EQ(s._type, sexpr::TOKEN);
EXPECT_EQ(s._str, "foo");
EXPECT_TRUE(sexpr::parse(lexer, s));
EXPECT_EQ(s._type, sexpr::LIST);
EXPECT_EQ(s._list, std::vector<sexpr::SExpr>());
EXPECT_TRUE(sexpr::parse(lexer, s));
EXPECT_EQ(s._type, sexpr::INT);
EXPECT_EQ(s._int, 123);
EXPECT_TRUE(sexpr::parse(lexer, s));
EXPECT_EQ(s._type, sexpr::STRING);
EXPECT_EQ(s._str, "");
EXPECT_FALSE(sexpr::parse(lexer, s));
EXPECT_EQ(lexer.peek(), sexpr::TOK_EOF);
}
TEST(sexpr, parselist)
{
sexpr::SExpr s;
sexpr::Lexer lexer("<parser-test1>", string_pipe("(foo)(bar)\n"));
EXPECT_TRUE(sexpr::parse(lexer, s));
EXPECT_EQ(s._type, sexpr::LIST);
EXPECT_EQ(s._list.size(), 1);
EXPECT_EQ(s._list[0]._type, sexpr::TOKEN);
EXPECT_EQ(s._list[0]._str, "foo");
EXPECT_TRUE(sexpr::parse(lexer, s));
EXPECT_EQ(s._type, sexpr::LIST);
EXPECT_EQ(s._list.size(), 1);
EXPECT_EQ(s._list[0]._type, sexpr::TOKEN);
EXPECT_EQ(s._list[0]._str, "bar");
EXPECT_FALSE(sexpr::parse(lexer, s));
EXPECT_EQ(lexer.peek(), sexpr::TOK_EOF);
}
TEST(sexpr, parsebad)
{
for (ZString bad : {
ZString("(\n"),
ZString(")\n"),
ZString("\"\n"),
ZString("'\n"),
ZString("\\\n"),
ZString("\"\\"),
ZString("\"\\z\""),
ZString("(()\n"),
ZString("((\n"),
ZString("((\"\n"),
})
{
sexpr::SExpr s;
io::LineSpan span;
sexpr::Lexer lexer("<parse-bad>", string_pipe(bad));
EXPECT_FALSE(sexpr::parse(lexer, s));
EXPECT_EQ(lexer.peek(), sexpr::TOK_ERROR);
}
}
|
