Add tests for Distro.path-sep and VM.prefix

S02-magicals/DISTRO.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 24;
+plan 26;
 
 =begin kwid
 
@@ -23,6 +23,7 @@ get a list of osnames that have actually passed tests.
     ok $?DISTRO.signature, "Signature is '{$?DISTRO.signature}'";
     ok $?DISTRO.desc,      "Description is '{$?DISTRO.desc}'";
     ok $?DISTRO.release,   "Release info is '{$?DISTRO.release}'";
+    ok $?DISTRO.path-sep,  "Path separator is '{$?DISTRO.path-sep}'";
 
     ok $?DISTRO.perl, 'We can do a $?DISTRO.perl';
     ok $?DISTRO.gist, 'We can do a $?DISTRO.gist';
@@ -44,6 +45,7 @@ ok $*DISTRO.signature, "Signature is '{$*DISTRO.signature}'";
 #?rakudo todo 'no Distro.desc yet'
 ok $*DISTRO.desc,      "Description is '{$*DISTRO.desc}'";
 ok $*DISTRO.release,   "Release info is '{$*DISTRO.release}'";
+ok $*DISTRO.path-sep,  "Path separator is '{$*DISTRO.path-sep}'";
 
 ok $*DISTRO.perl, 'We can do a $*DISTRO.perl';
 ok $*DISTRO.gist, 'We can do a $*DISTRO.gist';

S02-magicals/VM.t

@@ -3,7 +3,7 @@ use v6;
 use Test;
 
 my $isjvm = $*VM.name eq 'jvm';
-plan 28 + 2 * $isjvm;
+plan 30 + 2 * $isjvm;
 
 # $?VM.name is the Virtual machine we were compiled in.
 #?rakudo skip 'unimpl $?VM'
@@ -18,6 +18,7 @@ plan 28 + 2 * $isjvm;
     ok $?VM.desc,           "Description is '{$?VM.desc}'";
     ok $?VM.precomp-ext,    "Extension is '{$?VM.precomp-ext}'";
     ok $?VM.precomp-target, "Extension is '{$?VM.precomp-target}'";
+    ok $?VM.prefix,         "Prefix is '{$?VM.prefix}'";
 
     ok $?VM.perl, 'We can do a $?VM.perl';
     ok $?VM.gist, 'We can do a $?VM.gist';
@@ -41,6 +42,7 @@ ok $*VM.properties,     "We have properties" if $isjvm;
 ok $*VM.desc,           "Description is '{$*VM.desc}'";
 ok $*VM.precomp-ext,    "Extension is '{$*VM.precomp-ext}'";
 ok $*VM.precomp-target, "Extension is '{$*VM.precomp-target}'";
+ok $*VM.prefix,         "Prefix is '{$*VM.prefix}'";
 
 ok $*VM.perl, 'We can do a $*VM.perl';
 ok $*VM.gist, 'We can do a $*VM.gist';