Test @c[some shape] accepts a .new: :shape(same shape)...

RT#130510: https://rt.perl.org/Ticket/Display.html?id=130510
Raku · Jan 19, 2017 · 1f05be2 · 1f05be2
1 parent 1c61263
commit 1f05be2
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S02-types/array-shapes.t b/S02-types/array-shapes.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 28;
+plan 29;
 
 # L<S09/Fixed-size arrays>
 
@@ -115,3 +115,7 @@ subtest '.List on uninited shaped array' => {
     lives-ok { @result = @a.List }, 'does not die';
     is-deeply @result, [Any xx 4],  'gives correct results';
 }
+
+# RT #130510
+eval-lives-ok ｢my @c[2;2] .= new(:shape(2, 2), <a b>, <c d>)｣,
+    '@c[some shape] accepts a .new: :shape(same shape)...';