From 01d43af26ef4d4647450b92987f313d1b2704c79 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sat, 16 Jan 2021 18:52:47 +0900
Subject: [PATCH] Move test/tester.fs to lib/tester.fs

---
 lib/core.fs             | 10 ++++++++++
 {test => lib}/tester.fs |  0
 runtests.fs             |  3 ++-
 3 files changed, 12 insertions(+), 1 deletion(-)
 rename {test => lib}/tester.fs (100%)

diff --git a/lib/core.fs b/lib/core.fs
index 399f44f..66821a8 100644
--- a/lib/core.fs
+++ b/lib/core.fs
@@ -9,3 +9,13 @@ defined? roll [unless]
         dup 0<= if drop else swap >r 1- recurse r> swap then
     ;
 [then]
+
+
+\ Ignore test codes. lib/tester.fs will redefine this when
+\ running tests.
+: T{
+    begin
+        word throw
+        s" }T" streq if exit then
+    again
+;
diff --git a/test/tester.fs b/lib/tester.fs
similarity index 100%
rename from test/tester.fs
rename to lib/tester.fs
diff --git a/runtests.fs b/runtests.fs
index e6aa3ff..5376cb3 100644
--- a/runtests.fs
+++ b/runtests.fs
@@ -6,7 +6,8 @@
 
 ." Running PlanckForth test programs" cr
 
-include test/tester.fs
+include lib/tester.fs
+
 include test/core.fs
 include test/coreplustest.fs