Add host test suite

Makefile

@@ -27,7 +27,8 @@ examples: \
 	examples/happy-birthday/happy-birthday.gb \
 	examples/sokoban/sokoban.gb \
 	examples/goto10/goto10.gb \
-	examples/synth/synth.gb
+	examples/synth/synth.gb \
+	examples/test-suite/test-suite.gb
 
 examples/hello-world-asm/hello.gb: examples/hello-world-asm/hello.fs examples/hello-world-asm/*.fs $(SOURCE_FILES) $(LIB_FILES)
 	$(GBFORTH) --no-kernel $< $@
@@ -49,6 +50,7 @@ clean:
 	-rm -f examples/sokoban/sokoban.gb
 	-rm -f examples/goto10/goto10.gb
 	-rm -f examples/synth/synth.gb
+	-rm -f examples/test-suite/test-suite.gb
 	-rm -f $(TEST_OBJS)
 
 #

examples/test-suite/test-suite.fs

@@ -0,0 +1,32 @@
+title: ANSTESTSUITE
+gamecode: ANSF
+
+require ibm-font.fs
+require logger.fs
+require tester.fs
+
+variable #total
+: }T 1 #total +! }T ;
+
+: run-tests
+  log" Dup"
+  T{ 1 2 dup -> 1 2 2 }T
+  T{ -5 dup dup -> -5 -5 -5 }T
+
+  log" Swap"
+  T{ 1 2 3 swap -> 1 3 2 }T
+  T{ 1 2 3 swap swap -> 1 2 3 }T
+
+;
+
+: main
+  install-font
+  init-logger
+  init-tester
+  0 #total !
+  log" Starting tests..."
+  run-tests
+  log" --------------------"
+  #total @ 2 .r space log" Total"
+  #total @ #errors @ - 2 .r space log" Passed"
+  #errors @ 2 .r space log" Failed"  ;

test/gbtest.js

@@ -61,7 +61,7 @@ module.exports = filename => {
     },
 
     get frameSha() {
-      return getSha(frame);
+      return frame && getSha(frame);
     },
 
     get depth() {

test/test-examples.js

@@ -47,3 +47,21 @@ describe("hello-world-asm", () => {
     );
   });
 });
+
+describe("ans-test-suite", () => {
+  const gb = require("./gbtest")(
+    path.resolve(__dirname, "../examples/ans-test-suite/ans-test-suite.gb")
+  );
+
+  test("all tests pass", () => {
+    gb.steps(10);
+    gb.run();
+    gb.steps(100);
+    gb.saveFrame(
+      path.resolve(__dirname, "../examples/ans-test-suite/ans-test-suite.png")
+    );
+    expect(gb.frameSha).toBe(
+      "1dded7c5cbaaa4b94377fc76574deffb0869ee65e9b72dfafae0604304fbe365"
+    );
+  });
+});