use rust_lisp::{
    model::{IntType, Value},
    parser::{parse, ParseError},
};

#[macro_use]
extern crate rust_lisp;

#[test]
fn parse_basic_expression() {
    let ast = parse(
        "
    (list 
      (* 1 2)  ;; a comment
      (/ 6 3 \"foo\"))",
    )
    .next()
    .unwrap()
    .unwrap();

    assert_eq!(
        ast,
        lisp! {
          (list
            (* 1 2)
            (/ 6 3 "foo"))
        }
    );
}

#[test]
fn parse_nil() {
    let source = "()";
    let ast = parse(source).next().unwrap().unwrap();

    assert_eq!(ast, Value::NIL);
}

#[test]
fn parse_atom() {
    let source = "12";
    let ast = parse(source).next().unwrap().unwrap();

    assert_eq!(ast, Value::from(Into::<IntType>::into(12)));
}

#[test]
fn parse_negative_float() {
    let source = "-1.2";
    let ast = parse(source).collect::<Vec<Result<Value, ParseError>>>();

    assert_eq!(ast, vec![Ok(Value::from(-1.2))]);
}

#[test]
fn parse_multiple_lines() {
    let ast = parse(
        "
    (print 1)
    (print 2)
    (print 3)",
    )
    .collect::<Result<Vec<_>, _>>()
    .unwrap();

    assert_eq!(
        ast,
        vec![
            lisp! { (print 1) },
            lisp! { (print 2) },
            lisp! { (print 3) },
        ]
    );
}

// These should return a ParseError or None, but should not panic

#[test]
fn parse_unclosed_string() {
    let res = parse("\"foo").next();

    assert_eq!(
        res,
        Some(Err(ParseError {
            msg: "Unclosed string at index 3".to_owned()
        }))
    )
}

#[test]
fn parse_unclosed_list() {
    let res = parse("(12 foo").next();

    assert_eq!(
        res,
        Some(Err(ParseError {
            msg: "Unclosed list at index 7".to_owned()
        }))
    )
}

#[test]
fn parse_incomplete_float() {
    let res = parse("1.").next();

    assert_eq!(
        res,
        Some(Err(ParseError {
            msg: "Expected decimal value after '.' at index 1".to_owned()
        }))
    )
}

#[test]
fn parse_nonsense() {
    let res = parse("122jkh").next();

    assert_eq!(res, None)
}