tests for RT #76238, Bool.pick (and SomeEnum.pick)

Raku · Jan 9, 2011 · d5e42b6 · d5e42b6
1 parent 0127f17
commit d5e42b6
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S32-list/pick.t b/S32-list/pick.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 26;
+plan 28;
 
 =begin description
 
@@ -82,4 +82,12 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
     dies_ok({ [1,2,3].pick(4, :replace) }, 'error on deprecated :replace');
 }
 
+# enums + pick
+{
+    is Bool.pick(*).elems, 2, 'Bool.pick works';
+
+    enum A <b c d>;
+    is A.pick(*).elems, 3, 'RandomEnum.pick works';
+}
+
 # vim: ft=perl6