Adjust tests to new $a[]:foo zen slice features

Raku · Oct 10, 2015 · f2cfca2 · f2cfca2
1 parent 95a2822
commit f2cfca2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/S32-array/adverbs.t b/S32-array/adverbs.t
@@ -437,10 +437,10 @@ for $@n, Any, $@s, Str -> @a, $T {
     is @a[]:p($ok), (0=>"a",1=>"b",2=>"c",3=>"d"), "$n zen: :p";
     is @a[]:!p,     (0=>"a",1=>"b",2=>"c",3=>"d"), "$n zen: :!p";
     is @a[]:p($no), (0=>"a",1=>"b",2=>"c",3=>"d"), "$n zen: :p(\$no)";
+    is @a[]:foo,                               @a, "$n zen:foo value";
 
     throws-like '@a[]:k:v', X::Adverb::Slice,
       :what(@a.name), :nogo(<k v>);
-    throws-like '@a[]:zen', X::AdHoc;  # caught by MMD
     throws-like '@a[]:kv:p:zip:zop', X::Adverb::Slice,
       :what(@a.name), :nogo(<kv p>), :unexpected(<zip zop>);
 } #20

diff --git a/S32-hash/adverbs.t b/S32-hash/adverbs.t
@@ -403,10 +403,10 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {
     is (%h{}:p($ok)).sort(*.key),   (:1a,:2b,:3c,:4d), "$n zen: :p";
     is (%h{}:!p).sort(*.key),       (:1a,:2b,:3c,:4d), "$n zen: :!p";
     is (%h{}:p($no)).sort(*.key),   (:1a,:2b,:3c,:4d), "$n zen: :p(\$no)";
+    is %h{}:foo,                                   %h, "$n zen:foo value";
 
     throws-like '%h{}:k:v', X::Adverb::Slice,
       :what(%h.name), :nogo(<k v>);
-    throws-like '%h{}:zen', X::AdHoc; # caught by MMD
     throws-like '%h{}:kv:p:zip:zop', X::Adverb::Slice,
       :what(%h.name), :nogo(<kv p>), :unexpected(<zip zop>);
 } #20