eryn/sibil
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[parser] Handle dotted pairs!

Browse source
This commit is contained in:
Eryn Wells 2018-09-08 16:06:23 -07:00
parent fe271dfd8b
commit c6696c4f8b
4 changed files with 60 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

13
parser/tests/lists.rs
View file

@ -32,3 +32,16 @@ fn list_of_four_tokens() {
assert_eq!(parser.next(), Some(Ok(ex_list)));
assert_eq!(parser.next(), None);
}
#[test]
fn single_dotted_pair() {
let tokens = vec![Ok(Lex::new(Token::LeftParen, "(", 0, 0)),
Ok(Lex::new(Token::Id, "ab", 0, 0)),
Ok(Lex::new(Token::Dot, ".", 0, 0)),
Ok(Lex::new(Token::Id, "cd", 0, 0)),
Ok(Lex::new(Token::RightParen, ")", 0, 0))].into_iter();
let mut parser = Parser::new(tokens);
let ex_list = Obj::new(Pair::new(Obj::new(Sym::with_str("ab")), Obj::new(Sym::with_str("cd"))));
assert_eq!(parser.next(), Some(Ok(ex_list)));
assert_eq!(parser.next(), None);
}