fn eval_expr(code: &str) -> Result<Value, nomiscript::Error> {

    let program = Reader::parse(code)?;

    let mut symbols = SymbolTable::with_builtins();

    eval_program(&mut symbols, &program)

}

fn test_defstruct_creates_functions() {

    let code = r"

    (defstruct person name age)

    T

    ";

    let result = eval_expr(code);

    assert!(result.is_ok(), "DEFSTRUCT should succeed and return T");

}

fn test_defstruct_constructor_exists() {

    let code = r"

    (defstruct person name age)

    (quote (make-person))

    ";

    let result = eval_expr(code);

    assert!(result.is_ok(), "Constructor function should exist");

}