[t/spec] remove more wrong type constraints of the form 'Array @A'

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

S02-builtin_data_types/array_mmd.t

@@ -20,7 +20,7 @@ my $here;
 {
     my @a;
     $here = 0;
-    multi push ( Array @a, *@data ) { $here++ }
+    multi push (@a, *@data ) { $here++ }
     push @a, 2;
     is $here, 1, "push operator was redefined";
 }

S06-currying/mixed.t

@@ -45,8 +45,8 @@ try {
 is try { dummy_sub_with_params(arg2 => "bar") }, "[foo] [bar]",
   "(use ...).assuming works", :todo<feature>;
 
-sub __hyper (Array @a, Array @b, $op?) {
-  my Array @ret;
+sub __hyper (@a, @b, $op?) {
+  my @ret;
   for 0..(@a.end, @b.end).max -> $i {
     if $i > @a.end {
       push @ret, @b[$i];

S32-array/splice.t

@@ -32,7 +32,7 @@ my (@a,@b,@res);
 # should be removed later
 
 #?DOES 2
-sub splice_ok (Array @got, Array @ref, Array @exp, Array @exp_ref, Str $comment) {
+sub splice_ok (@got, @ref, @exp, @exp_ref, Str $comment) {
   is "[@got[]]", "[@exp[]]", "$comment - results match";
   is @ref, @exp_ref, "$comment - array got modified in-place";