GH-65 Add test case for creating an empty wordlist then ALLOTing.

SirWumpus · Nov 10, 2024 · ac9f851 · ac9f851
1 parent baa7d31
commit ac9f851
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/search.p4 b/test/search.p4
@@ -189,4 +189,8 @@ t{ 0 ' tw_count_words tv_traverse_wid TRAVERSE-WORDLIST -> 2 }t
 ONLY FORTH DEFINITIONS
 test_group_end
 
+.( GH-65 empty wordlist ALLOT ) test_group
+t{ WORDLIST SET-CURRENT HERE 0 ' ALLOT CATCH SWAP HERE - -> 0 0 }t
+test_group_end
+
 [THEN]