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

[parser] Add test for longer dotted pair: (ab cd . ef)

Browse source
This commit is contained in:
Eryn Wells 2018-09-08 16:09:44 -07:00
parent 125fb08f43
commit 2120417f76
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
parser/tests/lists.rs
View file

@ -9,7 +9,6 @@ extern crate sibilparser;
extern crate sibiltypes;
use sibillexer::{Lex, Token};
use sibillexer::Result as LexerResult;
use sibilparser::Parser;
use sibiltypes::{Obj, Pair, Sym};
@ -45,3 +44,18 @@ fn single_dotted_pair() {
assert_eq!(parser.next(), Some(Ok(ex_list)));
assert_eq!(parser.next(), None);
}
#[test]
fn three_element_dotted_pair() {
let tokens = vec![Ok(Lex::new(Token::LeftParen, "(", 0, 0)),
Ok(Lex::new(Token::Id, "ab", 0, 0)),
Ok(Lex::new(Token::Id, "cd", 0, 0)),
Ok(Lex::new(Token::Dot, ".", 0, 0)),
Ok(Lex::new(Token::Id, "ef", 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(
Pair::new(Obj::new(Sym::with_str("cd")), Obj::new(Sym::with_str("ef"))))));
assert_eq!(parser.next(), Some(Ok(ex_list)));
assert_eq!(parser.next(), None);
}