Skip to content

Commit 3e4f352

Browse files
lizmatlizmat
committed
Batch #19 of roast RT -> GH ticket migration
1 parent a4a4798 commit 3e4f352

File tree

13 files changed

+65
-54
lines changed

13 files changed

+65
-54
lines changed

‎S02-types/array_extending.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -86,7 +86,7 @@ plan 21;
8686
is @a[2], 6, '... and the third is 6';
8787
}
8888

89-
# RT #62948
89+
# https://github.com/Raku/old-issue-tracker/issues/669
9090
{
9191
my @a;
9292
@a[2] = 'b';

‎S02-types/autovivification.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@ plan 22;
6363
sub foo ($baz is rw, $assign? ) { $baz = $assign if $assign }
6464
sub bar ($baz is readonly) { }
6565

66-
# RT #77038
66+
# https://github.com/Raku/old-issue-tracker/issues/2025
6767
{
6868
my %h;
6969
push %h<s-push><a>, 1, 2;
@@ -103,7 +103,7 @@ sub bar ($baz is readonly) { }
103103
is $a.join, '42', 'Can autovivify Array';
104104
}
105105

106-
# RT #77048
106+
# https://github.com/Raku/old-issue-tracker/issues/2027
107107
{
108108
my Array $a;
109109
$a[0] = '4';

‎S02-types/baggy.t

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,8 @@ plan 9;
1313
is-deeply $b.SetHash, SetHash.new(<a b>), '.SetHash';
1414
}
1515

16-
{ # RT#127863
16+
# https://github.com/Raku/old-issue-tracker/issues/5223
17+
{
1718
subtest 'cloned BagHash gets its own elements storage' => {
1819
plan 2;
1920
my $a = BagHash.new: <a b c>;
@@ -48,15 +49,15 @@ subtest 'Baggy:U forwards methods to Mu where appropriate' => {
4849
}
4950
}
5051

51-
# https://rt.perl.org/Ticket/Display.html?id=131270
52+
# https://github.com/Raku/old-issue-tracker/issues/6227
5253
subtest '.pick/.roll/.grab reject NaN count' => {
5354
plan 3;
5455
throws-like { ^5 .BagHash.pick: NaN }, Exception, '.pick';
5556
throws-like { ^5 .BagHash.roll: NaN }, Exception, '.roll';
5657
throws-like { ^5 .BagHash.grab: NaN }, Exception, '.grab';
5758
}
5859

59-
# RT 131386
60+
# https://github.com/Raku/old-issue-tracker/issues/6284
6061
subtest 'can access key of empty list coerced to type' => {
6162
my @tests = <Set SetHash Bag BagHash Mix MixHash Map Hash>;
6263
plan +@tests;

‎S02-types/bool.t

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -66,7 +66,7 @@ is(++$bool, Bool::True, 'Increment of Bool::True still produces Bool::True');
6666
is(--$bool, Bool::False, 'Decrement of Bool::True produces Bool::False');
6767
is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
6868

69-
# RT #65514
69+
# https://github.com/Raku/old-issue-tracker/issues/983
7070
{
7171
ok (0 but Bool::True), 'Bool::True works with "but"';
7272
is (0 but Bool::True), 0, 'Bool::True works with "but"';
@@ -90,13 +90,13 @@ is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
9090

9191
}
9292

93-
# RT #72580
93+
# https://github.com/Raku/old-issue-tracker/issues/1486
9494
{
9595
ok True ~~ Int, "True ~~ Int";
9696
ok Bool ~~ Int, "Bool ~~ Int";
9797
}
9898

99-
# RT #127019
99+
# https://github.com/Raku/old-issue-tracker/issues/4924
100100
{
101101
my Bool $b = True;
102102
is-deeply $b.Int, 1, 'Bool typed scalar coerces to Int';
@@ -123,7 +123,7 @@ is(--$bool, Bool::False, 'Decrement of Bool::False produces Bool::False');
123123
is-deeply infix:<and>( ), True, 'infix:<and> with no args returns True';
124124
}
125125

126-
# RT #130867
126+
# https://github.com/Raku/old-issue-tracker/issues/6102
127127
is-deeply quietly { Bool.Str }, '', 'Bool:U stringifies to empty string';
128128

129129
# https://irclog.perlgeek.de/perl6-dev/2017-07-10#i_14852407

‎S02-types/list.t

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,8 @@ is ?(1,2,3), True, 'non-empty List is True';
3434

3535
lives-ok { <5 7 8>[] }, 'can zen slice a List';
3636

37-
# WAS: RT #115282, modified for lolly brannch
37+
# https://github.com/Raku/old-issue-tracker/issues/2922
38+
# modified for lolly branch
3839
is $(;).elems, 0, '$(;) parses, and is empty';
3940

4041
# .rotate
@@ -84,7 +85,8 @@ is $(;).elems, 0, '$(;) parses, and is empty';
8485
is ~$p, 'a b c d e', 'original still unmodified (negative)';
8586
} #13
8687

87-
# RT125677 Make sure List.rotate is Cool with stuff
88+
# https://github.com/Raku/old-issue-tracker/issues/4433
89+
# Make sure List.rotate is Cool with stuff
8890
{
8991
my $p = <a b c d e>;
9092
is ~$p.rotate('2'), 'c d e a b', '.rotate("2")';
@@ -108,7 +110,7 @@ is $(;).elems, 0, '$(;) parses, and is empty';
108110
is $p, <a b c>, 'did we get what we put in';
109111
} #4
110112

111-
#RT #116527
113+
# https://github.com/Raku/old-issue-tracker/issues/3035
112114
{
113115
role sidecat {};
114116
my @a = 1,2,3;
@@ -134,7 +136,7 @@ is $(;).elems, 0, '$(;) parses, and is empty';
134136
'fail if they are non-numeric strings';
135137
}
136138

137-
# RT#129044
139+
# https://github.com/Raku/old-issue-tracker/issues/5610
138140
{
139141
is-deeply (a => 2).first(/a/), (a => 2), "first with a Regexp object";
140142
is-deeply (a => 2).grep(/a/), ((a => 2),), "grep with a Regexp object";
@@ -154,15 +156,15 @@ subtest '.sum can handle Junctions' => {
154156
ok $sum !== 42, 'sum is correct (6)';
155157
}
156158

157-
# RT#130160
159+
# https://github.com/Raku/old-issue-tracker/issues/5819
158160
{
159161
my @a := <a b c>[0..2, 0..2].flat.cache;
160162
@a.Bool;
161163
@a.elems;
162164
is-deeply @a, <a b c a b c>, '.flat does not skip inner iterables';
163165
}
164166

165-
# RT #125964
167+
# https://github.com/Raku/old-issue-tracker/issues/4500
166168
{
167169
my $a = (1, 2, 3);
168170
throws-like { $a[42] = 21 }, X::Assignment::RO,

‎S02-types/lists.t

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ plan 29;
1010

1111
# Indexing lists
1212

13-
# RT #105368
13+
# https://github.com/Raku/old-issue-tracker/issues/2575
1414
{
1515
my $foo = 42;
1616

@@ -125,7 +125,7 @@ plan 29;
125125
is <1 2 3>.rt62836_x, 62836, 'call user-declared method in List:: class';
126126
}
127127

128-
# RT #66304
128+
# https://github.com/Raku/old-issue-tracker/issues/1037
129129
{
130130
my $rt66304 = (1, 2, 4);
131131
isa-ok $rt66304, List, 'List assigned to scalar is-a List';
@@ -145,7 +145,7 @@ plan 29;
145145
is $z, 'bacon', "3rd-party reification of List doesn't duplicate rest";
146146
}
147147

148-
# RT #112216
148+
# https://github.com/Raku/old-issue-tracker/issues/2695
149149
is 'foo'[2..*].elems, 0, 'can range-index a Str with infinite range';
150150

151151
# vim: ft=perl6

‎S02-types/multi_dimensional_array.t

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,8 @@ plan 59;
3030
is(@md.elems, 2, '.elems works on multidimensional array');
3131
}
3232

33-
#?rakudo skip 'multi-dim sized arrays NYI RT #124483'
33+
# https://github.com/Raku/old-issue-tracker/issues/3830
34+
#?rakudo skip 'multi-dim sized arrays NYI'
3435
{
3536
my @md[*;*;2];
3637
@md[0;0;0] = 'foo';

‎S02-types/nan.t

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@ plan 28;
1111
is 0 * Inf , NaN, "0 * Inf";
1212
is Inf / Inf, NaN, "Inf / Inf";
1313
is Inf - Inf, NaN, "Inf - Inf";
14-
# RT #124450
14+
# https://github.com/Raku/old-issue-tracker/issues/3804
1515
is NaN ** 0, 1, "NaN ** 0";
1616

1717
is 0**0 , 1, "0**0 is 1, _not_ NaN";
@@ -34,15 +34,15 @@ ok NaN + 1i ~~ (NaN)i, "NaN + 1i ~~ (NaN)i";
3434

3535
ok truncate(NaN) ~~ NaN, 'truncate(NaN) ~~ NaN';
3636

37-
#RT #103500
37+
# https://github.com/Raku/old-issue-tracker/issues/2557
3838
is NaN.raku, 'NaN', 'NaN perlification ok';
3939

40-
#RT #83622
40+
# https://github.com/Raku/old-issue-tracker/issues/2357
4141
ok NaN===NaN, "NaN value identity";
4242
ok (my num $ = NaN) === (my num $ = NaN), "NaN value identity (native num)";
4343

44+
# https://github.com/Raku/old-issue-tracker/issues/4903
4445
{
45-
#RT #126990
4646
throws-like ｢my Int $x = NaN｣, X::Syntax::Number::LiteralType,
4747
:value(NaN), :vartype(Int),
4848
'trying to assign NaN to Int gives a helpful error';
@@ -51,13 +51,15 @@ ok (my num $ = NaN) === (my num $ = NaN), "NaN value identity (native num)";
5151
is $x, NaN, 'assigning NaN to Num works without errors';
5252
}
5353

54-
{ # RT #129002
54+
# https://github.com/Raku/old-issue-tracker/issues/5576
55+
{
5556
my $mynan = my class MyNum is Num {}.new(NaN);
5657
is-deeply $mynan == NaN, False, 'sublcass of NaN !== NaN';
5758
is-deeply $mynan === NaN, False, 'sublcass of NaN !=== NaN';
5859
}
5960

60-
{ # https://irclog.perlgeek.de/perl6/2017-01-20#i_13959538
61+
# https://irclog.perlgeek.de/perl6/2017-01-20#i_13959538
62+
{
6163
my $a = NaN;
6264
my $b = NaN;
6365
is-deeply $a eqv $b, True, 'NaN eqv NaN when stored in variables';

‎S02-types/nil.t

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@ ok Nil.JustAnyMethod === Nil, 'Any method on Nil should return Nil (no args)';
3333
ok Nil.JustAnyMethod('meows', 42, 'bars', :foos) === Nil,
3434
'Any method on Nil should return Nil (with args)';
3535

36-
# RT #63894
36+
# https://github.com/Raku/old-issue-tracker/issues/783
3737
{
3838
my $calls;
3939
sub return_nil { $calls++; return; }
@@ -53,10 +53,10 @@ ok Nil.JustAnyMethod('meows', 42, 'bars', :foos) === Nil,
5353
is $x, 1, '$Statement for Nil; does one iteration';
5454
}
5555

56-
# RT #118717
56+
# https://github.com/Raku/old-issue-tracker/issues/3178
5757
ok Nil.^mro.gist !~~ rx:i/iter/, "Nil is not any sort of Iter*";
5858

59-
# RT #93980
59+
# https://github.com/Raku/old-issue-tracker/issues/2446
6060
ok (my $rt93980 = Nil) === Any, 'Nil assigned to scalar produces an Any'; #OK
6161

6262
ok (my Str $str93980 = Nil) === Str; #OK

‎S02-types/num.t

Lines changed: 13 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -175,10 +175,10 @@ is(4_2.0_1, 42.01, 'single underscores are ok');
175175
is 0_1, 1, "0_1 is parsed as 0d1";
176176
is +^1, -2, '+^1 == -2 as promised';
177177

178-
# RT #73238
178+
# https://github.com/Raku/old-issue-tracker/issues/1567
179179
ok 0xFFFFFFFFFFFFFFFF > 1, '0xFFFFFFFFFFFFFFFF is not -1';
180180

181-
# RT #122593
181+
# https://github.com/Raku/old-issue-tracker/issues/3485
182182
ok Num === Num, 'Num === Num should be truthy, and not die';
183183

184184
{ # cover for https://github.com/rakudo/rakudo/commit/906719c8c528bb46c12ebd1ce857b7ec90ebe425
@@ -700,7 +700,8 @@ ok Num === Num, 'Num === Num should be truthy, and not die';
700700
cmp-ok asinh(my num $ = -∞), '==', -∞, '-∞';
701701

702702
cmp-ok asinh(my num $ = 1e200), '==', ∞, '1e200';
703-
#?rakudo 2 todo 'RT 129919'
703+
# https://github.com/Raku/old-issue-tracker/issues/5760
704+
#?rakudo 2 todo 'asinh does not comply with IEEE'
704705
cmp-ok asinh(my num $ = -1e200), '==', -∞, '-1e200';
705706
is asinh(my num $ = -0e0).Str, '-0', '-0e0 actually gives a minus 0';
706707

@@ -784,7 +785,7 @@ ok Num === Num, 'Num === Num should be truthy, and not die';
784785
}
785786
}
786787

787-
# RT #130039
788+
# https://github.com/Raku/old-issue-tracker/issues/5784
788789
is-approx 1.2e308, 2*.6e308, 'Literal Nums close to the upper limit are not Inf';
789790

790791
subtest '.Bool' => {
@@ -799,7 +800,7 @@ subtest '.Bool' => {
799800
}
800801

801802
# https://github.com/rakudo/rakudo/issues/1626
802-
# RT #132330
803+
# https://github.com/Raku/old-issue-tracker/issues/6594
803804
subtest 'no parsing glitches in the way Num is parsed' => {
804805
plan 3;
805806

@@ -811,7 +812,7 @@ subtest 'no parsing glitches in the way Num is parsed' => {
811812
cmp-ok 1.0e-1 + 2.0e-1, '!=', 3.0e-1, '(3)';
812813
}
813814

814-
# RT #132330
815+
# https://github.com/Raku/old-issue-tracker/issues/6594
815816
cmp-ok 1.000000000000001e0, '!=', 1e0,
816817
'Nums that are close to each other parsed correctly as different';
817818

@@ -825,7 +826,7 @@ subtest 'Num literals yield closest available Num to their nominal value' => {
825826

826827
subtest 'parsed nums choose closest available representation' => {
827828
plan 13;
828-
# RT#128913
829+
# https://github.com/Raku/old-issue-tracker/issues/5564
829830
cmp-ok '9.9989999999999991e0'.EVAL, &[!<], '9.998999999999999e0'.EVAL;
830831

831832
cmp-ok <241431045331557770.44e-161>, '==', 241431045331557770.44e-161; # 2
@@ -849,7 +850,7 @@ subtest 'parsed nums choose closest available representation' => {
849850

850851
}
851852

852-
# RT#132329
853+
# https://github.com/Raku/old-issue-tracker/issues/6623
853854
cmp-ok Num(0.777777777777777777777), '==', Num(0.7777777777777777777771),
854855
'Rat->Num conversion is monotonic';
855856

@@ -868,19 +869,20 @@ subtest 'parsed nums are the same as those produced from Str.Num' => {
868869
'parsed matches val()';
869870
}
870871

871-
# RT#128820
872+
# https://github.com/Raku/old-issue-tracker/issues/5521
872873
subtest 'distinct num literals do not compare the same' => {
873874
plan 3;
874875
my $l1 := 1180591620717411303424e0;
875876
my $l2 := 1180591620717409992704e0;
876877
cmp-ok $l1, &[!==], $l2, '==';
877878
cmp-ok $l1, &[!===], $l2, '===';
878879

879-
# RT#128819
880+
# https://github.com/Raku/old-issue-tracker/issues/5520
880881
cmp-ok $l1.WHICH, &[!===], $l2.WHICH, '=== of .WHICHes';
881882
}
882883

883-
{ # RT#128817
884+
# https://github.com/Raku/old-issue-tracker/issues/5518
885+
{
884886
my $n := 1180591620717411303424.0e0;
885887
cmp-ok $n.Int, '==', $n.raku.EVAL.Int,
886888
'.raku roundtrips the Num correctly';

0 commit comments

Comments
 (0)