/* parser/tests/lists.rs
 * Eryn Wells <eryn@erynwells.me>
 */

//! Tests of lists of various sorts.

extern crate sibillexer;
extern crate sibilparser;
extern crate sibiltypes;

use sibillexer::{Lex, Token};
use sibilparser::Parser;
use sibiltypes::{Obj, Pair, Sym};

#[test]
fn list_of_four_tokens() {
    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::Id, "ef", 0, 0)),
                      Ok(Lex::new(Token::Id, "gh", 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(
                        Pair::new(Obj::new(Sym::with_str("ef")), Obj::new(
                                Pair::new(Obj::new(Sym::with_str("gh")), Obj::Null))))))));
    
    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);
}

#[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);
}