Add some tests for scalar roundtripping

S32-scalar/perl.t

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