Merge pull request #11 from nomennescio/enhancement-#10

Show actual and expected results with bottom of stack first, and top of stack last

Author: kazk

test/test-expected-actual.4th

@@ -0,0 +1,9 @@
+\ Copyright 2019 nomennescio
+s" Expected results and actual results tests" describe#{
+  s" Match" it#{
+     <{ 0 1 2 3 -> 0 1 2 3 }>
+  }#
+  s" Mismatch" it#{
+     <{ 0 1 2 3 -> 4 5 6 7 }>
+  }#
+}#

test/test-expected-actual.expected

@@ -0,0 +1,16 @@
+
+<DESCRIBE::>Expected results and actual results tests
+
+<IT::>Match
+
+<PASSED::>Test Passed
+
+<COMPLETEDIN::>0.039 ms
+
+<IT::>Mismatch
+
+<FAILED::>Expected 4 5 6 7 , got 0 1 2 3 
+
+<COMPLETEDIN::>0.067 ms
+
+<COMPLETEDIN::>0.296 ms

ttester-codewars.4th

@@ -21,9 +21,9 @@ variable ^different
 
 : passed$  ." Test Passed" cr ;
 : different$ ." Expected "
-  RESULTS @ 0 +do EXPECTED-RESULTS i cells + @ . loop
+  0 RESULTS @ -do EXPECTED-RESULTS i 1- cells + @ . 1 -loop
   ." , got "
-  RESULTS @ 0 +do ACTUAL-RESULTS i cells + @ . loop
+  0 RESULTS @ -do ACTUAL-RESULTS i 1- cells + @ . 1 -loop
   cr ;
 : nresults$ ." Wrong number of results, expected " depth START-DEPTH @ - .
   ." , got " ACTUAL-DEPTH @ START-DEPTH @ - dup 0< if negate ." a " . ." cell stack underflow" else . then cr ;