(#819) Recompile levels

[nothing.git] / test / scope_suite.h

diff --git a/test/scope_suite.h b/test/scope_suite.h
index 95c3ce052b9cb26478b7f20cd6ede6d30fe3c800..eb4874aa7fa28b469f1e11042501e2d7dce7f907 100644 (file)
--- 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);