Skip to content

Commit 4f47254

Browse files
committed
Remove a couple of wrong tests, some corrections and some unfudges for Rakudo.
1 parent dfc580a commit 4f47254

File tree

1 file changed

+5
-14
lines changed

1 file changed

+5
-14
lines changed

S02-types/lists.t

Lines changed: 5 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -9,12 +9,11 @@ use Test;
99
# for this test. See
1010
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22924">
1111

12-
plan 29;
12+
plan 27;
1313

1414
# Indexing lists
1515

1616
# RT #105368
17-
#?rakudo todo "Can't assign to a variable in a list"
1817
{
1918
my $foo = 42;
2019

@@ -31,7 +30,6 @@ plan 29;
3130
}
3231

3332
# List construction does not create new containers
34-
#?rakudo todo 'nom regression'
3533
{
3634
my $foo = 42;
3735

@@ -40,7 +38,6 @@ plan 29;
4038
"list construction should not create new containers";
4139
}
4240

43-
#?rakudo todo 'nom regression'
4441
{
4542
my $foo = 42;
4643
#?pugs todo 'unspecced'
@@ -140,19 +137,18 @@ plan 29;
140137

141138
#?niecza skip 'Unable to resolve method rt62836 in class Parcel'
142139
{
143-
sub List::rt62836 { 62836 }
140+
sub Parcel::rt62836 { 62836 }
144141

145142
dies_ok { <1 2 3>.rt62836 },
146-
'call to user-declared sub in List:: class dies';
143+
'call to user-declared sub in Parcel:: class dies';
147144
try { eval '<1 2 3>.rt62836' };
148145
ok "$!" ~~ /rt62836/, 'error message contains name of sub';
149146
ok "$!" ~~ /not \s+ found/, 'error message says "not found"';
150147
diag $!;
151148
ok "$!" ~~ /Seq|Parcel/, 'error message contains name of class';
152149

153-
augment class List { method rt62836_x { 62836 } };
154-
#?rakudo skip 'unskip when "augment" works'
155-
is <1 2 3>.rt62836_x, 62836, 'call user-declared method in List:: class';
150+
augment class Parcel { method rt62836_x { 62836 } };
151+
is <1 2 3>.rt62836_x, 62836, 'call user-declared method in Parcel:: class';
156152
}
157153

158154
# RT #66304
@@ -165,11 +161,6 @@ plan 29;
165161
'List.WHAT is the same as .WHAT of list assigned to scalar' );
166162
dies_ok { $rt66304[1] = 'ro' }, 'literal List element is immutable';
167163
is $rt66304, (1, 2, 4), 'List is not changed by attempted assignment';
168-
169-
my $x = 44;
170-
$rt66304 = ( 11, $x, 22 );
171-
dies_ok { $rt66304[1] = 'rw' }, 'variable List element is immutable';
172-
is $x, 44, 'variable not changed via assignment to list element';
173164
}
174165

175166
# nom regression bug

0 commit comments

Comments
 (0)