crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add a few more tests

Browse source 
FossilOrigin-Name: 8151d9ebf6d31952626837155c7dc8345b04199a9cdf7e15a6756d11babd883c
This commit is contained in:
crc 2019-10-14 20:12:56 +00:00
parent 36c8929528
commit da87f3d7fe
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
tests/test-core.forth
View file

@ -31,15 +31,20 @@ This will count the number of successful tests.
'Flag var
'Tests var
'InTestState var
:Testing (s-)
'Test:__ s:put s:put nl #-1 !Flag #0 !Tests &WordsTested v:inc reset ;
:passed (-)
'->_ s:put @Tests n:put '_tests_passed s:put nl
'----------------------------------- s:put nl ;
:exit-on-fail (-)
@Flag [ passed '->_1_test_failed s:put nl err:die ] -if ;
:match (n-)
eq? @InTestState and !InTestState ;
:try (qq-)
#-1 !InTestState
[ call ] dip call
@ -81,6 +86,8 @@ passed
~~~
'; Testing
[ here &; call here swap - ] [ #1 eq? ] try
[ here &; call fetch ] [ #10 eq? ] try
passed
~~~
@ -144,6 +151,8 @@ passed
~~~
'0; Testing
[ #1 0; #2 0; ] [ #2 eq? swap #1 eq? and ] try
[ #1 0; #0 0; #2 0; ] [ #1 eq? ] try
passed
~~~
@ -2057,6 +2066,7 @@ passed
~~~
'TRUE Testing
[ TRUE ] [ #-1 eq? ] try
passed
~~~
@ -2202,7 +2212,7 @@ passed
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
~~~
'v:update-using Testing
'v:update Testing
passed
~~~
@ -2215,13 +2225,6 @@ passed
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
~~~
'words Testing
passed
~~~
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
~~~
'xor Testing
passed