Add tests for Array.perl, for both implicit and explicitly constraine…

…d values

S32-array/perl.t

@@ -0,0 +1,30 @@
+use v6;
+use Test;
+
+plan 6;
+
+#?pugs   todo "cannot roundtrip arrays"
+#?niecza todo "cannot roundtrip arrays"
+# simple array
+{
+    my @a = 1,2;
+    is @a.perl, 'Array.new(1, 2)',
+      'can we serialize a simple array';
+    my $ra = eval(@a.perl);
+    is_deeply $ra, @a, 'can we roundtrip simple array';
+    ok $ra.of =:= Mu, 'make sure any value can be stored';
+} #3
+
+#?pugs   skip "cannot roundtrip arrays with constrained values"
+#?niecza skip "cannot roundtrip arrays with constrained values"
+# array with constrained values
+{
+    my Int @a = 1,2;
+    is @a.perl, 'Array[Int].new(1, 2)',
+      'can we serialize a array with constrained values';
+    my $ra = eval(@a.perl);
+    is_deeply $ra, @a, 'can we roundtrip array constrained values';
+    ok $ra.of =:= Int, 'make sure roundtripped values are Int';
+} #3
+
+#vim: ft=perl6