words now Working™

1 files changed, 9 insertions, 0 deletions

diff --git a/test.fs b/test.fs
index 78dd006..7eb09f0 100644
--- a/test.fs
+++ b/test.fs
@@ -477,4 +477,13 @@ t{ ge7 -> 124 }t
 t{ gs4 123 456
     -> }t
 
+testing vocabularies
+
+t{ vocabulary testvoc -> }t
+t{ also testvoc definitions -> }t
+t{ get-current empty-wordlist? -> <true> }t
+t{ : testicle  67 ; -> }t
+t{ get-current empty-wordlist? -> <false> }t
+t{ testicle -> 67 }t
+
 decimal