fixed appended RT number to be within quoted string

S01-perl-5-integration/array.t

@@ -76,22 +76,22 @@ is($retarray[10]:exists, @array[10]:exists, 'retro nonexists' );
 ok(($p5array.push(9)), 'can push');
 
 is(0+$p5array.fetch(4), 9, 'push result via obj');
-#?rakudo todo "doesn't work yet due to copying of arrays"
+#?rakudo todo "doesn't work yet due to copying of arrays RT #124650"
 {
     is(@array[4], 9, 'push result via array');
 }
 
 #$retarray.push(9);  # this will loop
 
-#?rakudo todo "doesn't work yet due to copying of arrays"
+#?rakudo todo "doesn't work yet due to copying of arrays RT #124651"
 {
     is(0+$p5array.fetch(5), 9, 'retro push result');
     is(@array[5], 9, 'retro push result');
 }
 
 ok($p5array.store(0,3), 'can store');
 
-#?rakudo todo "doesn't work yet due to copying of arrays"
+#?rakudo todo "doesn't work yet due to copying of arrays RT #124652"
 {
     is(@array[0], 3, 'store result');
 }

S01-perl-5-integration/basic.t

@@ -77,7 +77,7 @@ my $s = 'str';
     is($result,4,$test);
 }
 
-#?rakudo skip "would need v5"
+#?rakudo skip "would need v5 RT #124645"
 {
     sub add_in_perl5 ($x, $y) {
         use v5;

S01-perl-5-integration/class.t

@@ -14,7 +14,7 @@ unless (try { EVAL("1", :lang<perl5>) }) {
         EVAL q|
             use Digest::MD5:from<Perl5>;
             my $d = Digest::MD5.new;
-#?rakudo skip ""
+#?rakudo skip " RT #124648"
 {
             is $d.isa(Digest::MD5), 1, "Correct isa";
 }

S01-perl-5-integration/hash.t

@@ -66,7 +66,7 @@ try {
 is("{ @keys }", "{ @p5keys }");
 
 ok($p5hash.store(9, 'e'), 'can store');
-#?rakudo todo "doesn't work yet due to copying of hashes"
+#?rakudo todo "doesn't work yet due to copying of hashes RT #124647"
 {
     is(%hash{9}, 'e', 'store result');
 }

S01-perl-5-integration/import.t

@@ -17,7 +17,7 @@ unless (try { EVAL("1", :lang<perl5>) }) {
 eval_lives_ok(q[
 use Text::Wrap:from<Perl5> 'wrap';
 is(Text::Wrap::wrap('foo', 'bar', 'baz'), 'foobaz', "import p5 module");
-#?rakudo skip "importing of functions NYI"
+#?rakudo skip "importing of functions NYI RT #124646"
 {
 is(wrap('foo', 'bar', 'baz'), 'foobaz', "import p5 module");
 }

S01-perl-5-integration/strings.t

@@ -3,7 +3,7 @@ use Test;
 plan 6;
 
 is(EVAL("'Yet Another Perl Hacker'",:lang<perl5>),"Yet Another Perl Hacker");
-#?rakudo todo "NativeCall strings not yet Null safe"
+#?rakudo todo "NativeCall strings not yet Null safe RT #124649"
 {
     is(EVAL('"Yet Ano\0ther P\0erl Hacker"',:lang<perl5>),"Yet Ano\0ther P\0erl Hacker","Null Bytes in the middle of a converted string");
 }

S02-lexical-conventions/unspace.t

@@ -75,7 +75,7 @@ throws_like { EVAL 'fo\ o.lc' },
   'unspace not allowed in identifier';
 is((foo\    .lc), 'a', 'longer dot');
 is((foo\#`( comment ).lc), 'a', 'unspace with embedded comment');
-#?rakudo todo 'NYI'
+#?rakudo todo 'NYI RT #125072'
 throws_like { EVAL 'foo\#\ ( comment ).lc' },
   Exception,
   'unspace can\'t hide space between # and opening bracket';

S02-literals/listquote.t

@@ -9,7 +9,7 @@ plan 24;
 my $s = join 'a', <x y z>;
 is($s, "xayaz", 'list context <list>');
 
-#?rakudo skip 'meta operators'
+#?rakudo skip 'meta operators RT #124558'
 #?niecza skip '|<<'
 {
 my $s = join |<< <a x y z>;

S02-literals/numeric.t

@@ -17,7 +17,7 @@ is_approx <1/2>, 0.5, '<1/2> Rat literal';
 isa-ok <1/2>, Rat, '<1/2> produces a Rat';
 ok <1/2> ~~ Numeric, '<1/2> is Numeric';
 ok <1/2> ~~ Real, '<1/2> is Real';
-#?rakudo.jvm skip 'aborts nqp-j'
+#?rakudo.jvm skip 'aborts nqp-j RT #124559'
 isa-ok <0x01/0x02>, Rat, 'same with hexadecimal numbers';
 
 ok <1/-3>.WHAT === Str, 'negative allowed only on numerator';
@@ -26,7 +26,7 @@ ok <-1/-3>.WHAT === Str, 'negative allowed only on numerator';
 isa-ok <-1/3>, Rat, 'negative Rat literal';
 ok <-1/3> * -3 == 1, 'negative Rat literal';
 
-#?rakudo.jvm 3 skip 'aborts nqp-j'
+#?rakudo.jvm 3 skip 'aborts nqp-j RT #124560'
 ok <0x01/0x03> / (0x01/0x03) == 1, 'Rat works with hexadecimal numbers';
 ok <:13<01>/:13<07>> / (1/7) == 1, 'Rat works with colon radix numbers';
 ok <:12<1a>/:12<7b>> / (:12<1a> / :12<7b>) == 1, 'Rat works with colon radix numbers';

S02-literals/quoting.t

@@ -160,7 +160,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 
 # quote with \0 as delimiters, forbidden by STD
 # but see L<news:20050101220112.GF25432@plum.flirble.org>
-#?rakudo todo 'retriage'
+#?rakudo todo 'retriage RT #124554'
 {
     throws_like { EVAL "(q\0foo bar\0)" }, X::Comp::AdHoc;
 }
@@ -243,7 +243,7 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(~@q4, 'FOO gorch BAR', ", and long form");
 }
 
-#?rakudo todo "comments inside qq:ww NYI"
+#?rakudo todo "comments inside qq:ww NYI RT #ww NYI RT#:124555"
 {
     is (try EVAL "« one #'[[[comment]]] two »"), "one two", "«» handles embedded comments";
     is (try EVAL "« one #'«comment» two »"), "one two", "«» handles embedded comments containing french quotes";
@@ -408,14 +408,14 @@ Hello, World
     ok qq:x/echo hello $world/ ~~ /^'hello world'\n$/, 'Testing qq:x operator';
 }
 
-#?rakudo todo 'q:x assigned to array'
+#?rakudo todo 'q:x assigned to array RT #124556'
 #?niecza todo ':x'
 {
     my @two_lines = q:x/echo hello ; echo world/;
     is @two_lines, ("hello\n", "world\n"), 'testing q:x assigned to array';
 }
 
-#?rakudo todo 'q:x assigned to array'
+#?rakudo todo 'q:x assigned to array RT #124557'
 #?niecza todo ':x'
 {
     my $hello = 'howdy';

S02-literals/radix.t

@@ -145,7 +145,7 @@ is(:8<200000>, 65536, 'got the correct int value from oct 200000');
 # L<S02/Conversion functions/"Think of these as setting the default radix">
 # setting the default radix
 
-#?rakudo todo "Some question of what this form should actually do"
+#?rakudo todo "Some question of what this form should actually do RT #124561"
 #?niecza todo ":radix() NYI"
 {
     is(:8('0b1110'),  0o14, ':8(0b1110) converts from decimal');

S02-literals/version.t

@@ -27,7 +27,7 @@ is  v1.2   cmp  v1.2,   Same,     'cmp: Same';
 is  v1.2   cmp  v3.2,   Less, 'cmp: Less';
 is  v1.2   cmp  v0.2,   More, 'cmp: More';
 is  v1.2   cmp  v1.10,  Less, "cmp isn't Stringy-based";
-#?rakudo 3 todo "trailing zeroes fail"
+#?rakudo 3 todo "trailing zeroes fail RT #124562"
 ok  v1.2   eqv  v1.2.0, 'trailing zeroes are equivalent';
 ok  v1.2.0 eqv  v1.2,   'trailing zeroes are equivalent';
 ok  v1.2.0 eqv  v1.2.0.0.0.0.0,   'trailing zeroes are equivalent';

S02-magicals/DISTRO.t

@@ -15,7 +15,7 @@ get a list of osnames that have actually passed tests.
 =end kwid
 
 # $?DISTRO.name is the OS we were compiled in.
-#?rakudo skip 'unimpl $?DISTRO'
+#?rakudo skip 'unimpl $?DISTRO RT #124616'
 {
     ok $?DISTRO.name,      "We were compiled in '{$?DISTRO.name}'";
     ok $?DISTRO.auth,      "Authority is '{$?DISTRO.auth}'";
@@ -41,11 +41,11 @@ 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.jvm    todo 'no Distro.signature yet'
-#?rakudo.moar   todo 'no Distro.signature yet'
-#?rakudo.parrot skip 'no Distro.signature yet'
+#?rakudo.jvm    todo 'no Distro.signature yet RT #124617'
+#?rakudo.moar   todo 'no Distro.signature yet RT #124618'
+#?rakudo.parrot skip 'no Distro.signature yet RT #124619'
 ok $*DISTRO.signature, "Signature is '{$*DISTRO.signature}'";
-#?rakudo.parrot skip 'no Distro.desc yet'
+#?rakudo.parrot skip 'no Distro.desc yet RT #124620'
 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,9 +57,9 @@ ok $*DISTRO.Str  ~~ m/\w/, 'We can do a $*DISTRO.Str';
 ok $*DISTRO.name, 'Non-empty $*DISTRO.name';
 
 isa-ok $*DISTRO.version, Version;
-#?rakudo.jvm    todo 'no Distro.signature yet'
-#?rakudo.moar   todo 'no Distro.signature yet'
-#?rakudo.parrot skip 'no Distro.signature yet'
+#?rakudo.jvm    todo 'no Distro.signature yet RT #124621'
+#?rakudo.moar   todo 'no Distro.signature yet RT #124622'
+#?rakudo.parrot skip 'no Distro.signature yet RT #124623'
 isa-ok $*DISTRO.signature, Blob;
 isa-ok $*DISTRO.is-win, Bool;
 

S02-magicals/KERNEL.t

@@ -5,7 +5,7 @@ use Test;
 plan 39;
 
 # $?KERNEL.name is the kernel we were compiled in.
-#?rakudo skip 'unimpl $?KERNEL'
+#?rakudo skip 'unimpl $?KERNEL RT #124624'
 {
     ok $?KERNEL.name,      "We were compiled in '{$?KERNEL.name}'";
     ok $?KERNEL.auth,      "Authority is '{$?KERNEL.auth}'";
@@ -33,9 +33,9 @@ plan 39;
 ok $*KERNEL.name,      "We are running under '{$*KERNEL.name}'";
 ok $*KERNEL.auth,      "Authority is '{$*KERNEL.auth}'";
 ok $*KERNEL.version,   "Version is '{$*KERNEL.version}'";
-#?rakudo todo 'no Kernel.signature yet'
+#?rakudo todo 'no Kernel.signature yet RT #124625'
 ok $*KERNEL.signature, "Signature is '{$*KERNEL.signature}'";
-#?rakudo todo 'no Kernel.desc yet'
+#?rakudo todo 'no Kernel.desc yet RT #124626'
 ok $*KERNEL.desc,      "Description is '{$*KERNEL.desc}'";
 ok $*KERNEL.release,   "Release info is '{$*KERNEL.release}'";
 ok $*KERNEL.hardware,  "Hardware info is '{$*KERNEL.hardware}'";
@@ -51,12 +51,12 @@ diag "'{$*KERNEL.name}' is an unknown KERNEL, please report" if !
   "We know of the KERNEL we are running under";
 
 isa-ok $*KERNEL.version, Version;
-#?rakudo todo 'no Kernel.signature yet'
+#?rakudo todo 'no Kernel.signature yet RT #124627'
 isa-ok $*KERNEL.signature, Blob;
 isa-ok $*KERNEL.bits, Int;
 
-#?rakudo.jvm    skip "jvm doesn't know about signals"
-#?rakudo.parrot skip "parrot doesn't know about signals"
+#?rakudo.jvm    skip "jvm doesn't know about signals RT #124628"
+#?rakudo.parrot skip "parrot doesn't know about signals RT #124629"
 {
     ok $*KERNEL.signals ~~ Positional, 'did Kernel.signals return a list';
     is $*KERNEL.signals.elems, $*KERNEL.signals.grep(Signal|Any).elems,

S02-magicals/PERL.t

@@ -5,7 +5,7 @@ use Test;
 plan 50;
 
 # $?PERL.name is the Perl we were compiled in.
-#?rakudo skip 'unimpl $?PERL'
+#?rakudo skip 'unimpl $?PERL RT #124581'
 {
     ok $?PERL.name,      "We were compiled in '{$?PERL.name}'";
     ok $?PERL.auth,      "Authority is '{$?PERL.auth}'";
@@ -43,13 +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.jvm    todo 'no Perl.signature yet'
-#?rakudo.moar   todo 'no Perl.signature yet'
-#?rakudo.parrot skip 'no Perl.signature yet'
+#?rakudo.jvm    todo 'no Perl.signature yet RT #124582'
+#?rakudo.moar   todo 'no Perl.signature yet RT #124583'
+#?rakudo.parrot skip 'no Perl.signature yet RT #124584'
 ok $*PERL.signature, "Signature is '{$*PERL.signature}'";
-#?rakudo.jvm    todo 'no Perl.desc yet'
-#?rakudo.moar   todo 'no Perl.desc yet'
-#?rakudo.parrot skip 'no Perl.desc yet'
+#?rakudo.jvm    todo 'no Perl.desc yet RT #124585'
+#?rakudo.moar   todo 'no Perl.desc yet RT #124586'
+#?rakudo.parrot skip 'no Perl.desc yet RT #124587'
 ok $*PERL.desc,      "Description is '{$*PERL.desc}'";
 ok $*PERL.compiler,  "Has compiler info";
 
@@ -58,41 +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.jvm    todo 'no Perl.signature yet'
-#?rakudo.moar   todo 'no Perl.signature yet'
-#?rakudo.parrot skip 'no Perl.signature yet'
+#?rakudo.jvm    todo 'no Perl.signature yet RT #124588'
+#?rakudo.moar   todo 'no Perl.signature yet RT #124589'
+#?rakudo.parrot skip 'no Perl.signature yet RT #124590'
 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.jvm    todo 'no Perl.compiler.signature yet'
-#?rakudo.moar   todo 'no Perl.compiler.signature yet'
-#?rakudo.parrot skip 'no Perl.compiler.signature yet'
+#?rakudo.jvm    todo 'no Perl.compiler.signature yet RT #124591'
+#?rakudo.moar   todo 'no Perl.compiler.signature yet RT #124592'
+#?rakudo.parrot skip 'no Perl.compiler.signature yet RT #124593'
 ok $C.signature,  "Signature is '{$C.signature}'";
-#?rakudo.jvm    todo 'no Perl.compiler.desc yet'
-#?rakudo.moar   todo 'no Perl.compiler.desc yet'
-#?rakudo.parrot skip 'no Perl.compiler.desc yet'
+#?rakudo.jvm    todo 'no Perl.compiler.desc yet RT #124594'
+#?rakudo.moar   todo 'no Perl.compiler.desc yet RT #124595'
+#?rakudo.parrot skip 'no Perl.compiler.desc yet RT #124596'
 ok $C.desc,       "Description is '{$C.desc}'";
-#?rakudo.jvm    todo 'no Perl.compiler.release yet'
-#?rakudo.moar   todo 'no Perl.compiler.release yet'
-#?rakudo.parrot skip 'no Perl.compiler.release yet'
+#?rakudo.jvm    todo 'no Perl.compiler.release yet RT #124597'
+#?rakudo.moar   todo 'no Perl.compiler.release yet RT #124598'
+#?rakudo.parrot skip 'no Perl.compiler.release yet RT #124599'
 ok $C.release,    "Release is '{$C.release}'";
 ok $C.build-date, "Build-date is '{$C.build-date}'";
-#?rakudo.jvm    todo 'no Perl.compiler.codename yet'
-#?rakudo.moar   todo 'no Perl.compiler.codename yet'
-#?rakudo.parrot skip 'no Perl.compiler.codename yet'
+#?rakudo.jvm    todo 'no Perl.compiler.codename yet RT #124600'
+#?rakudo.moar   todo 'no Perl.compiler.codename yet RT #124601'
+#?rakudo.parrot skip 'no Perl.compiler.codename yet RT #124602'
 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.jvm    todo 'no Perl.compiler.signature yet'
-#?rakudo.moar   todo 'no Perl.compiler.signature yet'
-#?rakudo.parrot skip 'no Perl.compiler.signature yet'
+#?rakudo.jvm    todo 'no Perl.compiler.signature yet RT #124603'
+#?rakudo.moar   todo 'no Perl.compiler.signature yet RT #124604'
+#?rakudo.parrot skip 'no Perl.compiler.signature yet RT #124605'
 isa-ok $C.signature, Blob;
 isa-ok $C.build-date, DateTime;
 

S02-magicals/VM.t

@@ -4,16 +4,16 @@ use Test;
 
 plan 32;
 
-#?rakudo.moar   skip 'VM.properties does not exist'
-#?rakudo.parrot skip 'VM.properties does not exist'
+#?rakudo.moar   skip 'VM.properties does not exist RT #124606'
+#?rakudo.parrot skip 'VM.properties does not exist RT #124607'
 {
     #?rakudo skip 'unimpl $?VM'
     ok $?VM.properties,     "We have properties";
     ok $*VM.properties,     "We have properties";
 }
 
 # $?VM.name is the Virtual machine we were compiled in.
-#?rakudo skip 'unimpl $?VM'
+#?rakudo skip 'unimpl $?VM RT #124608'
 {
     ok $?VM.name,           "We were compiled in '{$?VM.name}'";
     ok $?VM.auth,           "Authority is '{$?VM.auth}'";
@@ -42,11 +42,11 @@ 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.jvm    todo 'no VM.signature yet'
-#?rakudo.moar   todo 'no VM.signature yet'
-#?rakudo.parrot skip 'no VM.signature yet'
+#?rakudo.jvm    todo 'no VM.signature yet RT #124609'
+#?rakudo.moar   todo 'no VM.signature yet RT #124610'
+#?rakudo.parrot skip 'no VM.signature yet RT #124611'
 ok $*VM.signature,      "Signature is '{$*VM.signature}'";
-#?rakudo.parrot skip 'no VM.desc yet'
+#?rakudo.parrot skip 'no VM.desc yet RT #124612'
 ok $*VM.desc,           "Description is '{$*VM.desc}'";
 ok $*VM.config,         "We have config";
 ok $*VM.precomp-ext,    "Extension is '{$*VM.precomp-ext}'";
@@ -62,9 +62,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.jvm    todo 'no VM.signature yet'
-#?rakudo.moar   todo 'no VM.signature yet'
-#?rakudo.parrot skip 'no VM.signature yet'
+#?rakudo.jvm    todo 'no VM.signature yet RT #124613'
+#?rakudo.moar   todo 'no VM.signature yet RT #124614'
+#?rakudo.parrot skip 'no VM.signature yet RT #124615'
 isa-ok $*VM.signature, Blob;
 
 # vim: ft=perl6

S02-magicals/dollar-underscore.t

@@ -16,7 +16,7 @@ my @list = ('a');
 
 for @list -> $letter { is( $letter , 'a', 'can bind to variable in pointy') }
 
-#?rakudo skip 'for() with nullary block'
+#?rakudo skip 'for() with nullary block RT #124630'
 #?niecza skip 'infinite loop' 
 {
     # Do pointy subs send along an implicit param? No!

S02-names-vars/list_array_perl.t

@@ -34,7 +34,7 @@ my @tests = (
 }
 
 # Recursive data structures
-#?rakudo skip 'recursive data structure'
+#?rakudo skip 'recursive data structure RT #124639'
 {
     my $foo = [ 42 ]; $foo[1] = $foo;
     is $foo[1][1][1][0], 42, "basic recursive arrayref";