Add a test for 1 to n dimensional shaped arrays

Considering the bugs:
rakudo/rakudo#2350
rakudo/rakudo#2352

there need to be tests that are done for higher
dimensions than what is usually used to make sure that
these cases are also supported.

Author: SyrupThinker

S02-types/multi_dimensional_array.t

@@ -7,7 +7,7 @@ Multi-Dimensional Arrays
 
 =end pod
 
-plan 58;
+plan 59;
 
 # multi-dimensional array
 # L<S09/Multidimensional arrays/Perl 6 arrays are not restricted to being one-dimensional>
@@ -156,4 +156,22 @@ is @multi3[0;0;1], (<cute-cats>),      'assigned the right thing to [0;0;1]';
 is @multi3[0;1;1], (<cute-dogs>),      'assigned the right thing to [0;1;1]';
 is @multi3[0;2;1], (<cute-squirrels>), 'assigned the right thing to [0;2;1]';
 
+
+subtest 'Insertion and reading of shaped array elements' => {
+    constant MAX_CHECKED_DIM = 3; # Can be increased after https://github.com/rakudo/rakudo/issues/2352
+    plan ([*] 1..$_ for (1..MAX_CHECKED_DIM)).sum + MAX_CHECKED_DIM;
+    for 1..MAX_CHECKED_DIM {
+        my @md[(1..$_).reverse];
+        for @md.keys -> $k {
+            @md.AT-POS(|$k) = $k.sum;
+        }
+        
+        for @md.keys -> $k {
+            is @md.AT-POS(|$k), $k.sum, "got the right value from array with dim $_ at $k";
+        }
+        
+        is @md.elems, $_, ".elems for a shaped array (dim $_) returns the first dimension";
+    }
+}
+
 # vim: ft=perl6