:p is supposed to weed out non-existing

Raku · Sep 2, 2014 · 7a6c919 · 7a6c919
1 parent 3bd9a0b
commit 7a6c919
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/S32-array/delete-adverb.t b/S32-array/delete-adverb.t
@@ -196,9 +196,9 @@ sub gen_array { (1..10).list }
     is_deeply @a[4,5]:delete:!exists:!p,
     (4=>True,5=>True),              "d:!exists:!p nekeys";
     is_deeply @a[4,6]:delete:exists:p,
-    ((),6=>True),                   "d:exists:p nekey/ekey";
+    (6=>True,),                   "d:exists:p nekey/ekey";
     is_deeply @a[7,4]:delete:!exists:p,
-    (7=>False,()),                  "d:!exists:p ekey/nekey";
+    (7=>False,),                  "d:!exists:p ekey/nekey";
     is +@a, 10,                     "only deletions in middle";
 } #9
 

diff --git a/S32-hash/delete-adverb.t b/S32-hash/delete-adverb.t
@@ -183,9 +183,9 @@ sub gen_hash {
     is_deeply %h<m n>:delete:!exists:!p,
       (m=>True,n=>True),                  "d:!exists:!p nekeys";
     is_deeply %h<m o>:delete:exists:p,
-      ((),o=>True),                       "d:exists:p nekey/ekey";
+      (o=>True,),                       "d:exists:p nekey/ekey";
     is_deeply %h<p n>:delete:!exists:p,
-      (p=>False,()),                      "d:!exists:p ekey/nekey";
+      (p=>False,),                      "d:!exists:p ekey/nekey";
 } #24
 
 { # whatever