From be25e2939c3489a4d00befa6546bb00609864aeb Mon Sep 17 00:00:00 2001 From: crc Date: Wed, 11 Mar 2020 19:34:10 +0000 Subject: [PATCH] more tests for words in rx (6 remain w/o tests) FossilOrigin-Name: 0ae9fc6c65b40b7a116f2dcc2142fb12c0f28e4ac10b6ffa62b7e766fb5435f2 --- tests/rx.retro | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/tests/rx.retro b/tests/rx.retro index 0607ce6..f68bf42 100644 --- a/tests/rx.retro +++ b/tests/rx.retro @@ -262,17 +262,21 @@ passed ~~~ 'prefix:( Testing + [ #1 (#2 #3 ] [ #3 match #1 match ] try passed ~~~ ~~~ 'Compiler Testing + [ @Compiler ] [ #0 match ] try + [ 'Compiler d:lookup d:class fetch ] [ &class:data match ] try passed ~~~ ~~~ 'Heap Testing + [ Heap ] [ #3 match ] try passed ~~~ @@ -321,6 +325,7 @@ passed ~~~ 'Dictionary Testing [ Dictionary ] [ #2 match ] try + [ 'Dictionary d:lookup d:class fetch ] [ &class:data match ] try passed ~~~ @@ -393,6 +398,7 @@ passed ~~~ 'prefix:$ Testing + [ #1 $c #3 ] [ #3 match #99 match #1 match ] try passed ~~~ @@ -410,11 +416,15 @@ passed ~~~ 'interpret Testing + [ '#1 interpret ] [ #1 match ] try + [ #1 'n:inc interpret ] [ #2 match ] try + [ #1 #2 'swap interpret ] [ #1 match #2 match ] try passed ~~~ ~~~ 'd:lookup Testing + [ 'Compiler d:lookup d:class fetch ] [ &class:data match ] try passed ~~~