X-Git-Url: https://git.lizzy.rs/?a=blobdiff_plain;f=test%2Fscope_suite.h;h=eb4874aa7fa28b469f1e11042501e2d7dce7f907;hb=a6dad834b5fd753243da5fe8f2b107687b56df7e;hp=95c3ce052b9cb26478b7f20cd6ede6d30fe3c800;hpb=9d567120ed872721f1a25596678292da0232b657;p=nothing.git diff --git a/test/scope_suite.h b/test/scope_suite.h index 95c3ce05..eb4874aa 100644 --- a/test/scope_suite.h +++ b/test/scope_suite.h @@ -2,8 +2,8 @@ #define SCOPE_SUITE_H_ #include "test.h" -#include "script/scope.h" -#include "script/expr.h" +#include "ebisp/scope.h" +#include "ebisp/expr.h" TEST(set_scope_value_test) { @@ -18,26 +18,26 @@ TEST(set_scope_value_test) }; push_scope_frame(gc, &scope, - list(gc, 2, x, y), - list(gc, 2, STRING(gc, "hello"), STRING(gc, "world"))); + list(gc, "ee", x, y), + list(gc, "ss", "hello", "world")); set_scope_value(gc, &scope, z, STRING(gc, "foo")); ASSERT_TRUE(equal(CONS(gc, x, STRING(gc, "hello")), get_scope_value(&scope, x)), - "Unexpected value of `x`"); + { fprintf(stderr, "Unexpected value of `x`\n"); }); ASSERT_TRUE(equal(CONS(gc, y, STRING(gc, "world")), get_scope_value(&scope, y)), - "Unexpected value of `y`"); + { fprintf(stderr, "Unexpected value of `y`\n"); }); ASSERT_TRUE(equal(CONS(gc, z, STRING(gc, "foo")), get_scope_value(&scope, z)), - "Unexpected value of `z`"); + { fprintf(stderr, "Unexpected value of `z`\n"); }); pop_scope_frame(gc, &scope); ASSERT_TRUE(equal(NIL(gc), get_scope_value(&scope, x)), - "Unexpected value of `x`"); + { fprintf(stderr, "Unexpected value of `x`\n"); }); ASSERT_TRUE(equal(NIL(gc), get_scope_value(&scope, y)), - "Unexpected value of `y`"); + { fprintf(stderr, "Unexpected value of `y`\n"); }); ASSERT_TRUE(equal(CONS(gc, z, STRING(gc, "foo")), get_scope_value(&scope, z)), - "Unexpected value of `z`"); + { fprintf(stderr, "Unexpected value of `z`\n"); }); destroy_gc(gc);