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

more tests for words in rx (6 remain w/o tests)

Browse source 
FossilOrigin-Name: 0ae9fc6c65b40b7a116f2dcc2142fb12c0f28e4ac10b6ffa62b7e766fb5435f2
This commit is contained in:
crc 2020-03-11 19:34:10 +00:00
parent 380df6dea7
commit be25e2939c
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/rx.retro
View file

@ -262,17 +262,21 @@ passed
~~~ ~~~
'prefix:( Testing 'prefix:( Testing
[ #1 (#2 #3 ] [ #3 match #1 match ] try
passed passed
~~~ ~~~
~~~ ~~~
'Compiler Testing 'Compiler Testing
[ @Compiler ] [ #0 match ] try
[ 'Compiler d:lookup d:class fetch ] [ &class:data match ] try
passed passed
~~~ ~~~
~~~ ~~~
'Heap Testing 'Heap Testing
[ Heap ] [ #3 match ] try
passed passed
~~~ ~~~
@ -321,6 +325,7 @@ passed
~~~ ~~~
'Dictionary Testing 'Dictionary Testing
[ Dictionary ] [ #2 match ] try [ Dictionary ] [ #2 match ] try
[ 'Dictionary d:lookup d:class fetch ] [ &class:data match ] try
passed passed
~~~ ~~~
@ -393,6 +398,7 @@ passed
~~~ ~~~
'prefix:$ Testing 'prefix:$ Testing
[ #1 $c #3 ] [ #3 match #99 match #1 match ] try
passed passed
~~~ ~~~
@ -410,11 +416,15 @@ passed
~~~ ~~~
'interpret Testing 'interpret Testing
[ '#1 interpret ] [ #1 match ] try
[ #1 'n:inc interpret ] [ #2 match ] try
[ #1 #2 'swap interpret ] [ #1 match #2 match ] try
passed passed
~~~ ~~~
~~~ ~~~
'd:lookup Testing 'd:lookup Testing
[ 'Compiler d:lookup d:class fetch ] [ &class:data match ] try
passed passed
~~~ ~~~