Test .List on uninited shaped arrays does not die

RT#130513: https://rt.perl.org/Ticket/Display.html?id=130513
Raku · Jan 19, 2017 · 1c61263 · 1c61263
1 parent 890ca31
commit 1c61263
Showing 1 changed file with 11 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 27;
+plan 28;
 
 # L<S09/Fixed-size arrays>
 
@@ -105,3 +105,13 @@ plan 27;
     throws-like 'my @a[-9223372036854775808,-2]',
         X::IllegalDimensionInShape;
 }
+
+# RT #130513
+subtest '.List on uninited shaped array' => {
+    plan 2;
+
+    my @a[2;2];
+    my @result;
+    lives-ok { @result = @a.List }, 'does not die';
+    is-deeply @result, [Any xx 4],  'gives correct results';
+}