Add code and license

Author: kazk

LICENSE.md

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2018-2019 nomennescio
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

README.md

@@ -0,0 +1,15 @@
+## ttester Codewars
+
+`ttester.fs` extension to output test results for Codewars.
+
+This project is work in progress.
+
+Please contribute to improve Forth support on Codewars.
+
+## Example
+
+See [example](./example).
+
+## Acknowledgements
+
+Authored by [@nomennescio](https://github.com/nomennescio).

example/preloaded.4th

@@ -0,0 +1 @@
+\ preloaded.4th is loaded before solution.4th

example/run-tests.sh

@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+example_dir=$(cd "$(dirname "${BASH_SOURCE[0]}")" ; pwd -P)
+
+cd "$example_dir"
+gforth preloaded.4th solution.4th ../ttester-codewars.4th tests.4th -e bye

example/solution.4th

@@ -0,0 +1 @@
+: solution  ( u1|n1 u2|n2 -- u3|n3 )  + ; \ Addition

example/tests.4th

@@ -0,0 +1,5 @@
+s" solution" describe#{
+  s" returns sum" it#{
+    <{ 1 1 solution -> 2 }>
+  }#
+}#

ttester-codewars.4th

@@ -0,0 +1,39 @@
+\ ttester extension for Codewars
+decimal
+s" test/ttester.fs" included
+
+: #ms ( dmicroseconds -- len c-addr ) <# # # # [char] . hold #s #> ;
+
+: describe#{ ( len c-addr -- ) cr ." <DESCRIBE::>" type cr utime ;
+: it#{ ( len c-addr -- ) cr ." <IT::>" type cr utime ;
+: }# ( -- ) utime cr ." <COMPLETEDIN::>" 2swap d- #ms type ."  ms" cr ;
+
+: failed# ( -- ) cr ." <FAILED::>" ;
+: passed# ( -- ) cr ." <PASSED::>" ;
+
+create EXPECTED-RESULTS 32 cells allot
+variable RESULTS
+variable DIFFERENCES
+
+: <{ T{ ;
+: }>
+  depth ACTUAL-DEPTH @ = if
+    depth START-DEPTH @ > if
+      depth START-DEPTH @ - dup RESULTS ! 0 do
+        dup EXPECTED-RESULTS i cells + !
+        ACTUAL-RESULTS i cells + @ <> DIFFERENCES +!
+      loop
+      DIFFERENCES @ if
+        failed# ." Expected "
+        RESULTS @ 0 do EXPECTED-RESULTS i cells + @ . loop
+        ." , got "
+        RESULTS @ 0 do ACTUAL-RESULTS i cells + @ . loop
+        cr
+      else
+        passed# ." Test Passed" cr
+      then
+    then
+  else
+    failed# ." Wrong number of results, expected " ACTUAL-DEPTH @ . ." , got " depth . cr
+  then
+  F} ;