flesh/tests/test_vars.rs

mod var_lib_tests {
    use relish::ast::{eval, lex, SymTable, Ctr};
    use relish::stdlib::{static_stdlib, dynamic_stdlib};

    #[test]
    fn test_variable_export_and_lookup() {
        let doc1 = "(export test 1)";
        let doc2 = "test";
        let result = 1;

        let mut syms = SymTable::new();
        static_stdlib(&mut syms).unwrap();
        dynamic_stdlib(false, &mut syms).unwrap();

        if let Ok(tree) = lex(&doc1.to_string()) {
            if let Ctr::None = *eval(&tree, &mut syms).unwrap() {
                // pass
            } else {
                assert!(false);
            }
        } else {
            assert!(false);
        }

        if let Ok(tree) = lex(&doc2.to_string()) {
            if let Ctr::Integer(i) = *eval(&tree, &mut syms).unwrap() {
                assert_eq!(i, result);
            } else {
                assert!(false);
            }
        } else {
            assert!(false);
        }
    }
}