Skip to content

Commit d329a22

Browse files
committed
remove LOLLY hack
1 parent 583e7c7 commit d329a22

File tree

1 file changed

+0
-8
lines changed

1 file changed

+0
-8
lines changed

S02-types/multi_dimensional_array.t

Lines changed: 0 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -60,7 +60,6 @@ isa_ok($multi1[1], List);
6060
# multi-dimensional array slices
6161
# L<S09/"Subscript and slice notation"/index value to each slice>
6262

63-
#!LOLLY 3 skip 'no LOLLY syntax yet'
6463
is($multi1[1;0], 'foo', 'got the right value at multi1 index 1,0');
6564
is($multi1[1;1], 'bar', 'got the right value at multi1 index 1,1');
6665
is($multi1[1;2], 'baz', 'got the right value at multi1 index 1,2');
@@ -90,7 +89,6 @@ isa_ok($multi2[0], Parcel);
9089

9190
# slice
9291

93-
#!LOLLY 3 skip 'no LOLLY syntax yet'
9492
is($multi2[0;0], 1, 'got the right value at multi2 index 0,0');
9593
is($multi2[0;1], 2, 'got the right value at multi2 index 0,1');
9694
is($multi2[0;2], 3, 'got the right value at multi2 index 0,2');
@@ -111,7 +109,6 @@ isa_ok($multi2[1], List);
111109

112110
# slice
113111

114-
#!LOLLY 3 skip 'no LOLLY syntax yet'
115112
is($multi2[1;0], 4, 'got the right value at multi2 index 1,0');
116113
is($multi2[1;1], 5, 'got the right value at multi2 index 1,1');
117114
is($multi2[1;2], 6, 'got the right value at multi2 index 1,2');
@@ -124,14 +121,12 @@ is($multi2[1][2], 6, 'got the right value at multi2 index 1,2');
124121

125122
# explicit multi-slice
126123

127-
#!LOLLY 3 skip 'no LOLLY syntax yet'
128124
is($multi2[0,1;0], (1, 4), 'got the right values at multi2 index {0,1},0');
129125
is($multi2[0,1;1], (2, 5), 'got the right values at multi2 index {0,1},1');
130126
is($multi2[0,1;2], (3, 6), 'got the right values at multi2 index {0,1},2');
131127

132128
# whatever multi-slice
133129

134-
#!LOLLY 3 skip 'no LOLLY syntax yet'
135130
is($multi2[*;0], (1, 4), 'got the right values at multi2 index *,0');
136131
is($multi2[*;1], (2, 5), 'got the right values at multi2 index *,1');
137132
is($multi2[*;2], (3, 6), 'got the right values at multi2 index *,2');
@@ -148,17 +143,14 @@ my @multi3 =
148143
[ <planes satellites falcon-9s> ]
149144
];
150145

151-
#!LOLLY 2 skip 'no LOLLY syntax yet'
152146
is @multi3[1; 0,1,2; 1], (<SUVs freighters satellites>), '[1 ; 0,1,2 ; 2]';
153147
is @multi3[1; *; 1], (<SUVs freighters satellites>), '[1 ; * ; 2]';
154148

155-
#!LOLLY 4 skip 'no LOLLY syntax yet'
156149
is @multi3[0,1; 2; 2], (<angry-squirrels falcon-9s>), '[0,1 ; 2 ; 2]';
157150
is @multi3[1; 0,2; 1], (<SUVs satellites>), '[1 ; 0,2 ; 1]';
158151
is @multi3[1; 2; 1,2], (<satellites falcon-9s>), '[1 ; 2 ; 1,2]';
159152
is @multi3[0,1; 0,2; 1,2], (<fuzzy-cats angry-cats squirrels angry-squirrels SUVs tanks satellites falcon-9s>), '[0,1 ; 0,2 ; 1,2]';
160153

161-
#!LOLLY 5 skip 'no LOLLY syntax yet'
162154
ok (@multi3[0;*;1] = <cute-cats cute-dogs cute-squirrels ignored-value>), 'can assign to multi-dim slice';
163155
is @multi3[0;*;1], (<cute-cats cute-dogs cute-squirrels>), 'overall assignment worked';
164156
is @multi3[0;0;1], (<cute-cats>), 'assigned the right thing to [0;0;1]';

0 commit comments

Comments
 (0)