From 1c61263ca44ea36180764b2939e021988dc875bc Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Thu, 19 Jan 2017 16:00:37 +0000
Subject: [PATCH] Test .List on uninited shaped arrays does not die

RT#130513: https://rt.perl.org/Ticket/Display.html?id=130513
---
 S02-types/array-shapes.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/S02-types/array-shapes.t b/S02-types/array-shapes.t
index a61eb6c436..4c9eb2315c 100644
--- 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';
+}