@@ -60,7 +60,6 @@ isa_ok($multi1[1], List);
60
60
# multi-dimensional array slices
61
61
# L<S09/"Subscript and slice notation"/index value to each slice>
62
62
63
- # !LOLLY 3 skip 'no LOLLY syntax yet'
64
63
is ($ multi1 [1 ;0 ], ' foo' , ' got the right value at multi1 index 1,0' );
65
64
is ($ multi1 [1 ;1 ], ' bar' , ' got the right value at multi1 index 1,1' );
66
65
is ($ multi1 [1 ;2 ], ' baz' , ' got the right value at multi1 index 1,2' );
@@ -90,7 +89,6 @@ isa_ok($multi2[0], Parcel);
90
89
91
90
# slice
92
91
93
- # !LOLLY 3 skip 'no LOLLY syntax yet'
94
92
is ($ multi2 [0 ;0 ], 1 , ' got the right value at multi2 index 0,0' );
95
93
is ($ multi2 [0 ;1 ], 2 , ' got the right value at multi2 index 0,1' );
96
94
is ($ multi2 [0 ;2 ], 3 , ' got the right value at multi2 index 0,2' );
@@ -111,7 +109,6 @@ isa_ok($multi2[1], List);
111
109
112
110
# slice
113
111
114
- # !LOLLY 3 skip 'no LOLLY syntax yet'
115
112
is ($ multi2 [1 ;0 ], 4 , ' got the right value at multi2 index 1,0' );
116
113
is ($ multi2 [1 ;1 ], 5 , ' got the right value at multi2 index 1,1' );
117
114
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');
124
121
125
122
# explicit multi-slice
126
123
127
- # !LOLLY 3 skip 'no LOLLY syntax yet'
128
124
is ($ multi2 [0 ,1 ;0 ], (1 , 4 ), ' got the right values at multi2 index {0,1},0' );
129
125
is ($ multi2 [0 ,1 ;1 ], (2 , 5 ), ' got the right values at multi2 index {0,1},1' );
130
126
is ($ multi2 [0 ,1 ;2 ], (3 , 6 ), ' got the right values at multi2 index {0,1},2' );
131
127
132
128
# whatever multi-slice
133
129
134
- # !LOLLY 3 skip 'no LOLLY syntax yet'
135
130
is ($ multi2 [* ;0 ], (1 , 4 ), ' got the right values at multi2 index *,0' );
136
131
is ($ multi2 [* ;1 ], (2 , 5 ), ' got the right values at multi2 index *,1' );
137
132
is ($ multi2 [* ;2 ], (3 , 6 ), ' got the right values at multi2 index *,2' );
@@ -148,17 +143,14 @@ my @multi3 =
148
143
[ <planes satellites falcon-9s > ]
149
144
];
150
145
151
- # !LOLLY 2 skip 'no LOLLY syntax yet'
152
146
is @ multi3 [1 ; 0 ,1 ,2 ; 1 ], (<SUVs freighters satellites >), ' [1 ; 0,1,2 ; 2]' ;
153
147
is @ multi3 [1 ; * ; 1 ], (<SUVs freighters satellites >), ' [1 ; * ; 2]' ;
154
148
155
- # !LOLLY 4 skip 'no LOLLY syntax yet'
156
149
is @ multi3 [0 ,1 ; 2 ; 2 ], (<angry-squirrels falcon-9s >), ' [0,1 ; 2 ; 2]' ;
157
150
is @ multi3 [1 ; 0 ,2 ; 1 ], (<SUVs satellites >), ' [1 ; 0,2 ; 1]' ;
158
151
is @ multi3 [1 ; 2 ; 1 ,2 ], (<satellites falcon-9s >), ' [1 ; 2 ; 1,2]' ;
159
152
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]' ;
160
153
161
- # !LOLLY 5 skip 'no LOLLY syntax yet'
162
154
ok (@ multi3 [0 ;* ;1 ] = <cute-cats cute-dogs cute-squirrels ignored-value >), ' can assign to multi-dim slice' ;
163
155
is @ multi3 [0 ;* ;1 ], (<cute-cats cute-dogs cute-squirrels >), ' overall assignment worked' ;
164
156
is @ multi3 [0 ;0 ;1 ], (<cute-cats >), ' assigned the right thing to [0;0;1]' ;
0 commit comments