|
|
|
@@ -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); |
|
|
|
|