use lispi::file_parser::eval_file;

#[test]
fn test_eval_file_peano_fac_list() {
    let mut output = Vec::with_capacity(10);
    let expected_output = format!(
        "S\nPEANO\nP\nADD\nMUL\nFAC\nSEQ\nMAPLIST\nCOUNT\nFAC1\n{}\n{}\n",
        "[0, 1, 2, 3, 4]", "[1, 1, 2, 6, 24]"
    );
    assert!(eval_file("peano.lisp", &mut output).is_some());
    assert_eq!(String::from_utf8(output).unwrap(), expected_output);
}