Fudge DISTRO/PERL/VM for parrot

For some reason, only a todo seems to corrupt the internal state, and thus
cause segfaults

Author: lizmat

S02-magicals/DISTRO.t

@@ -41,9 +41,13 @@ get a list of osnames that have actually passed tests.
 ok $*DISTRO.name,      "We are running under '{$*DISTRO.name}'";
 ok $*DISTRO.auth,      "Authority is '{$*DISTRO.auth}'";
 ok $*DISTRO.version,   "Version is '{$*DISTRO.version}'";
-#?rakudo todo 'no Distro.signature yet'
+#?rakudo.jvm    todo 'no Distro.signature yet'
+#?rakudo.moar   todo 'no Distro.signature yet'
+#?rakudo.parrot skip 'no Distro.signature yet'
 ok $*DISTRO.signature, "Signature is '{$*DISTRO.signature}'";
-#?rakudo todo 'no Distro.desc yet'
+#?rakudo.jvm    todo 'no Distro.desc yet'
+#?rakudo.moar   todo 'no Distro.desc yet'
+#?rakudo.parrot skip '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}'";
@@ -57,7 +61,9 @@ diag "'{$*DISTRO.name}' is an unknown DISTRO, please report" if !
   "We know of the DISTRO we are running under";
 
 isa_ok $*DISTRO.version, Version;
-#?rakudo todo 'no Distro.signature yet'
+#?rakudo.jvm    todo 'no Distro.signature yet'
+#?rakudo.moar   todo 'no Distro.signature yet'
+#?rakudo.parrot skip 'no Distro.signature yet'
 isa_ok $*DISTRO.signature, Blob;
 isa_ok $*DISTRO.is-win, Bool;
 

S02-magicals/PERL.t

@@ -43,9 +43,13 @@ plan 50;
 ok $*PERL.name,      "We are running under '{$*PERL.name}'";
 ok $*PERL.auth,      "Authority is '{$*PERL.auth}'";
 ok $*PERL.version,   "Version is '{$*PERL.version}'";
-#?rakudo todo 'no Perl.signature yet'
+#?rakudo.jvm    todo 'no Perl.signature yet'
+#?rakudo.moar   todo 'no Perl.signature yet'
+#?rakudo.parrot skip 'no Perl.signature yet'
 ok $*PERL.signature, "Signature is '{$*PERL.signature}'";
-#?rakudo todo 'no Perl.desc yet'
+#?rakudo.jvm    todo 'no Perl.desc yet'
+#?rakudo.moar   todo 'no Perl.desc yet'
+#?rakudo.parrot skip 'no Perl.desc yet'
 ok $*PERL.desc,      "Description is '{$*PERL.desc}'";
 ok $*PERL.compiler,  "Has compiler info";
 
@@ -54,29 +58,41 @@ ok $*PERL.gist ~~ m/\w/, 'We can do a $*PERL.gist';
 ok $*PERL.Str  ~~ m/\w/, 'We can do a $*PERL.Str';
 
 isa_ok $*PERL.version, Version;
-#?rakudo todo 'no Perl.signature yet'
+#?rakudo.jvm    todo 'no Perl.signature yet'
+#?rakudo.moar   todo 'no Perl.signature yet'
+#?rakudo.parrot skip 'no Perl.signature yet'
 isa_ok $*PERL.signature, Blob;
 isa_ok $*PERL.compiler, Compiler;
 
 my $C = $*PERL.compiler;
 ok $C.name,       "We were compiled in '{$C.name}'";
 ok $C.auth,       "Authority is '{$C.auth}'";
 ok $C.version,    "Version is '{$C.version}'";
-#?rakudo todo 'no Perl.compiler.signature yet'
+#?rakudo.jvm    todo 'no Perl.compiler.signature yet'
+#?rakudo.moar   todo 'no Perl.compiler.signature yet'
+#?rakudo.parrot skip 'no Perl.compiler.signature yet'
 ok $C.signature,  "Signature is '{$C.signature}'";
-#?rakudo todo 'no Perl.compiler.desc yet'
+#?rakudo.jvm    todo 'no Perl.compiler.desc yet'
+#?rakudo.moar   todo 'no Perl.compiler.desc yet'
+#?rakudo.parrot skip 'no Perl.compiler.desc yet'
 ok $C.desc,       "Description is '{$C.desc}'";
-#?rakudo todo 'no Perl.compiler.release yet'
+#?rakudo.jvm    todo 'no Perl.compiler.release yet'
+#?rakudo.moar   todo 'no Perl.compiler.release yet'
+#?rakudo.parrot skip 'no Perl.compiler.release yet'
 ok $C.release,    "Release is '{$C.release}'";
 ok $C.build-date, "Build-date is '{$C.build-date}'";
-#?rakudo todo 'no Perl.compiler.codename yet'
+#?rakudo.jvm    todo 'no Perl.compiler.codename yet'
+#?rakudo.moar   todo 'no Perl.compiler.codename yet'
+#?rakudo.parrot skip 'no Perl.compiler.codename yet'
 ok $C.codename,   "Codename is '{$C.codename}'";
 
 ok $C.perl, 'We can do a $?PERL.compiler.perl';
 ok $C.gist, 'We can do a $?PERL.compiler.gist';
 
 isa_ok $C.version, Version;
-#?rakudo todo 'no Perl.compiler.signature yet'
+#?rakudo.jvm    todo 'no Perl.compiler.signature yet'
+#?rakudo.moar   todo 'no Perl.compiler.signature yet'
+#?rakudo.parrot skip 'no Perl.compiler.signature yet'
 isa_ok $C.signature, Blob;
 isa_ok $C.build-date, DateTime;
 

S02-magicals/VM.t

@@ -42,9 +42,13 @@ plan 32;
 ok $*VM.name,           "We are running under '{$*VM.name}'";
 ok $*VM.auth,           "Authority is '{$*VM.auth}'";
 ok $*VM.version,        "Version is '{$*VM.version}'";
-#?rakudo todo 'no VM.signature yet'
+#?rakudo.jvm    todo 'no VM.signature yet'
+#?rakudo.moar   todo 'no VM.signature yet'
+#?rakudo.parrot skip 'no VM.signature yet'
 ok $*VM.signature,      "Signature is '{$*VM.signature}'";
-#?rakudo todo 'no VM.desc yet'
+#?rakudo.jvm    todo 'no VM.desc yet'
+#?rakudo.moar   todo 'no VM.desc yet'
+#?rakudo.parrot skip 'no VM.desc yet'
 ok $*VM.desc,           "Description is '{$*VM.desc}'";
 ok $*VM.config,         "We have config";
 ok $*VM.precomp-ext,    "Extension is '{$*VM.precomp-ext}'";
@@ -60,7 +64,9 @@ diag "'{$*VM.name}' is an unknown VM, please report" if !
   "We know of the VM we are running under";
 
 isa_ok $*VM.version, Version;
-#?rakudo todo 'no VM.signature yet'
+#?rakudo.jvm    todo 'no VM.signature yet'
+#?rakudo.moar   todo 'no VM.signature yet'
+#?rakudo.parrot skip 'no VM.signature yet'
 isa_ok $*VM.signature, Blob;
 
 # vim: ft=perl6