Handle testing Array methods on List/Range similarly

Author: lizmat

S02-types/list.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 59;
+plan 61;
 
 isa-ok (5, 7, 8), List, '(5, 7, 8) is List';
 is +(5, 7, 8), 3, 'prefix:<+> on a List';
@@ -113,7 +113,7 @@ is $(;).elems, 0, '$(;) parses, and is empty';
 }
 
 {
-    for <push pop shift unshift> -> $method {
+    for <push pop shift unshift append prepend> -> $method {
         throws-like { (1,2,3)."$method"(42) }, X::Immutable,
           method   => $method,
           typename => 'List',

S02-types/range.t

@@ -90,18 +90,13 @@ is(+Range, 0, 'type numification');
 {
     my $r = 1..5;
 
-    throws-like { $r.push(42) }, X::Immutable,
-      :typename<Range>, :method<push>,    'range is immutable (push)';
-    throws-like { $r.append(42) }, X::Immutable,
-      :typename<Range>, :method<append>,  'range is immutable (append)';
-    throws-like { $r.unshift(42) }, X::Immutable,
-      :typename<Range>, :method<unshift>, 'range is immutable (unshift)';
-    throws-like { $r.prepend(42) }, X::Immutable,
-      :typename<Range>, :method<prepend>, 'range is immutable (prepend)';
-    throws-like { $r.shift }, X::Immutable,
-      :typename<Range>, :method<shift>,   'range is immutable (shift)';
-    throws-like { $r.pop }, X::Immutable,
-      :typename<Range>, :method<pop>,     'range is immutable (pop)';
+    for <push pop shift unshift append prepend> -> $method {
+        throws-like { $r."$method"(42) }, X::Immutable,
+          method   => $method,
+          typename => 'Range',
+          "range is immutable ($method)",
+        ;
+    }
 
     my $s = 1..5;
     is $r, $s, 'range has not changed';