[gsoc_spectest] added tests for pick(*). (Added 2 tests)

git-svn-id: http://svn.pugscode.org/pugs@20700 c213334d-75ef-0310-aa23-eaa082d1ae64

S29-list/pick.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 11;
+plan 13;
 
 =begin description
 
@@ -38,6 +38,20 @@ is eval('pick(2, @arr)'), <z z>, 'sub pick with $num < +@values';
 is eval('pick(4, @arr)'), <z z z>, 'sub pick with $num > +@values';
 is eval('pick(4, :repl, @arr)'), <z z z z>, 'sub pick(:repl) with $num > +@values';
 
+ok(<a b c d>.pick(*).sort === <a b c d>, 'pick(*) returns all the items in the array (but maybe not in order)');
+
+# There should be a better way to write this
+{
+    my $passed = 0;
+    my @items = <s o m e i t e m s>;
+    for (1 .. 10) {
+        if(@items.pick(*) !=== @items) {
+            $passed = 1; last;
+        }
+    }
+    ok($passed, 'pick(*) returned the items of the array in a random order');
+}
+
 my $c = 0;
 my @value = gather {
   eval '