@@ -9,12 +9,11 @@ use Test;
9
9
# for this test. See
10
10
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22924">
11
11
12
- plan 29 ;
12
+ plan 27 ;
13
13
14
14
# Indexing lists
15
15
16
16
# RT #105368
17
- # ?rakudo todo "Can't assign to a variable in a list"
18
17
{
19
18
my $ foo = 42 ;
20
19
@@ -31,7 +30,6 @@ plan 29;
31
30
}
32
31
33
32
# List construction does not create new containers
34
- # ?rakudo todo 'nom regression'
35
33
{
36
34
my $ foo = 42 ;
37
35
@@ -40,7 +38,6 @@ plan 29;
40
38
" list construction should not create new containers" ;
41
39
}
42
40
43
- # ?rakudo todo 'nom regression'
44
41
{
45
42
my $ foo = 42 ;
46
43
# ?pugs todo 'unspecced'
@@ -140,19 +137,18 @@ plan 29;
140
137
141
138
# ?niecza skip 'Unable to resolve method rt62836 in class Parcel'
142
139
{
143
- sub List ::rt62836 { 62836 }
140
+ sub Parcel ::rt62836 { 62836 }
144
141
145
142
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' ;
147
144
try { eval ' <1 2 3>.rt62836' };
148
145
ok " $!" ~~ /rt62836 /, ' error message contains name of sub' ;
149
146
ok " $!" ~~ /not \s + found /, ' error message says "not found"' ;
150
147
diag $! ;
151
148
ok " $!" ~~ /Seq| Parcel /, ' error message contains name of class' ;
152
149
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' ;
156
152
}
157
153
158
154
# RT #66304
@@ -165,11 +161,6 @@ plan 29;
165
161
' List.WHAT is the same as .WHAT of list assigned to scalar' );
166
162
dies_ok { $ rt66304 [1 ] = ' ro' }, ' literal List element is immutable' ;
167
163
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' ;
173
164
}
174
165
175
166
# nom regression bug
0 commit comments