Simple tests to verify test framework

Author: nomennescio

test/README.md

@@ -0,0 +1,4 @@
+Simple tests to verify the Forth test framework is still working
+
+Run all tests by executing
+run-tests.py

test/run-tests.py

@@ -0,0 +1,36 @@
+#!/usr/bin/env python
+# Copyright 2019 nomennescio
+# MIT license
+
+import glob, os, re
+
+passed, failed = 0, 0
+
+def run (forthfile):
+    return os.popen ("gforth ../ttester-codewars.4th " + forthfile + " -e bye").readlines ()
+
+def timeless (lines):
+    return [re.sub(r'\d+', '0', l) if "<COMPLETEDIN::>" in l else l for l in lines]
+
+def test (base):
+    global passed, failed
+    if (timeless (run (base + ".4th")) == timeless (open (base + ".expected").readlines ())):
+        print ("Pass: " + base)
+        passed += 1
+    else:
+        print ("Fail: " + base)
+        failed += 1
+
+prevdir = os.getcwd ()
+os.chdir (os.path.dirname (os.path.abspath (__file__)))
+
+files = [os.path.splitext (f) for f in glob.glob ("*.4th")]
+for f,_ in files:
+    test (f)
+
+if (failed==0):
+    print ("All {0} tests were successful".format (passed))
+else:
+    print ("{0} out of {1} tests failed".format (failed, failed+passed))
+    
+os.chdir (prevdir)

test/test-describe.4th

@@ -0,0 +1,6 @@
+\ Copyright 2019 nomennescio
+s" group of tests" describe#{
+  s" single test" it#{
+    <{ 0 -> 0 }>
+  }#
+}#

test/test-describe.expected

@@ -0,0 +1,10 @@
+
+<DESCRIBE::>group of tests
+
+<IT::>single test
+
+<PASSED::>Test Passed
+
+<COMPLETEDIN::>0.021 ms
+
+<COMPLETEDIN::>0.038 ms

test/test-fail.4th

@@ -0,0 +1,2 @@
+\ Copyright 2019 nomennescio
+<{ 0 -> 1 }>

test/test-fail.expected

@@ -0,0 +1,2 @@
+
+<FAILED::>Expected 1 , got 0 

test/test-pass.4th

@@ -0,0 +1,2 @@
+\ Copyright 2019 nomennescio
+<{ 0 -> 0 }>

test/test-pass.expected

@@ -0,0 +1,2 @@
+
+<PASSED::>Test Passed