|
|
|
@@ -88,7 +88,7 @@ testresult test_built_in_add() {
|
|
|
|
|
four,
|
|
|
|
|
nil)));
|
|
|
|
|
|
|
|
|
|
Ast_Node* result = eval_expr(form, new(Environment));
|
|
|
|
|
Ast_Node* result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_no_error(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -111,7 +111,7 @@ testresult test_built_in_substract() {
|
|
|
|
|
four,
|
|
|
|
|
nil)));
|
|
|
|
|
|
|
|
|
|
Ast_Node* result = eval_expr(form, new(Environment));
|
|
|
|
|
Ast_Node* result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_no_error(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -135,7 +135,7 @@ testresult test_built_in_multiply() {
|
|
|
|
|
four,
|
|
|
|
|
nil)));
|
|
|
|
|
|
|
|
|
|
Ast_Node* result = eval_expr(form, new(Environment));
|
|
|
|
|
Ast_Node* result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_no_error(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -159,7 +159,7 @@ testresult test_built_in_divide() {
|
|
|
|
|
four,
|
|
|
|
|
nil)));
|
|
|
|
|
|
|
|
|
|
Ast_Node* result = eval_expr(form, new(Environment));
|
|
|
|
|
Ast_Node* result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_null(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -188,7 +188,7 @@ testresult test_built_in_if() {
|
|
|
|
|
Ast_Node* result;
|
|
|
|
|
|
|
|
|
|
// test *then* case
|
|
|
|
|
result = eval_expr(form, new(Environment));
|
|
|
|
|
result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_no_error(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -197,7 +197,7 @@ testresult test_built_in_if() {
|
|
|
|
|
|
|
|
|
|
// test *else* case
|
|
|
|
|
cond->value.number->value = 0;
|
|
|
|
|
result = eval_expr(form, new(Environment));
|
|
|
|
|
result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_null(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -225,7 +225,7 @@ testresult test_built_in_and() {
|
|
|
|
|
Ast_Node* result;
|
|
|
|
|
|
|
|
|
|
// a true case
|
|
|
|
|
result = eval_expr(form, new(Environment));
|
|
|
|
|
result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_no_error(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
@@ -234,7 +234,7 @@ testresult test_built_in_and() {
|
|
|
|
|
|
|
|
|
|
// a false case
|
|
|
|
|
cond1->value.number->value = 0;
|
|
|
|
|
result = eval_expr(form, new(Environment));
|
|
|
|
|
result = eval_expr(form, create_empty_environment());
|
|
|
|
|
|
|
|
|
|
assert_no_error(error);
|
|
|
|
|
assert_not_null(result);
|
|
|
|
|