@@ -259,13 +259,13 @@ plan(67);
259
259
pir::nqp_deserialize_sc__vSPP($ serialized , $ dsc , $ sh );
260
260
261
261
ok (nqp ::istype($ dsc [0 ], T8), ' deserialized object has correct type' );
262
- ok (+ $ dsc [0 ]. a == 3 , ' array a came back with correct element count' );
262
+ ok (nqp :: elems ( $ dsc [0 ]. a) == 3 , ' array a came back with correct element count' );
263
263
ok ($ dsc [0 ]. a[0 ] == 1 , ' array a first element is correct' );
264
264
ok ($ dsc [0 ]. a[1 ] eq ' lol' , ' array a second element is correct' );
265
265
ok ($ dsc [0 ]. a[2 ] == 3 , ' array a third element is fine' );
266
- ok (+ $ dsc [0 ]. b == 3 , ' array b came back with correct element count' );
266
+ ok (nqp :: elems ( $ dsc [0 ]. b) == 3 , ' array b came back with correct element count' );
267
267
ok ($ dsc [0 ]. b[0 ] == 1 , ' array b first element is correct' );
268
- ok (+ $ dsc [0 ]. b[1 ] == 2 , ' array b nested array has correct count' );
268
+ ok (nqp :: elems ( $ dsc [0 ]. b[1 ]) == 2 , ' array b nested array has correct element count' );
269
269
ok (+ $ dsc [0 ]. b[1 ][0 ] == 2 , ' array b nested array first element ok' );
270
270
ok (+ $ dsc [0 ]. b[1 ][1 ] == 3 , ' array b nested array second element ok' );
271
271
ok (+ $ dsc [0 ]. b[2 ] == 4 , ' array b third element is correct' );
@@ -300,7 +300,7 @@ plan(67);
300
300
pir::nqp_deserialize_sc__vSPP($ serialized , $ dsc , $ sh );
301
301
302
302
ok (nqp ::istype($ dsc [0 ], T9), ' deserialized object has correct type' );
303
- ok (+ $ dsc [0 ]. a == 2 , ' hash came back with correct element count' );
303
+ ok (nqp :: elems ( $ dsc [0 ]. a) == 2 , ' hash came back with correct element count' );
304
304
ok ($ dsc [0 ]. a<a > == 42 , ' hash first element is correct' );
305
305
ok ($ dsc [0 ]. a<b > eq ' polar bear' , ' hash second element is correct' );
306
306
}
@@ -335,7 +335,7 @@ plan(67);
335
335
pir::nqp_deserialize_sc__vSPP($ serialized , $ dsc , $ sh );
336
336
337
337
ok (nqp ::istype($ dsc [0 ], T10), ' deserialized object has correct type' );
338
- ok (+ $ dsc [0 ]. a == 3 , ' integer array came back with correct element count' );
338
+ ok (nqp :: elems ( $ dsc [0 ]. a) == 3 , ' integer array came back with correct element count' );
339
339
ok ($ dsc [0 ]. a[0 ] == 101 , ' integer array first element is correct' );
340
340
ok ($ dsc [0 ]. a[1 ] == 102 , ' integer array second element is correct' );
341
341
ok ($ dsc [0 ]. a[2 ] == 103 , ' integer array third element is correct' );
@@ -371,7 +371,7 @@ plan(67);
371
371
pir::nqp_deserialize_sc__vSPP($ serialized , $ dsc , $ sh );
372
372
373
373
ok (nqp ::istype($ dsc [0 ], T11), ' deserialized object has correct type' );
374
- ok (+ $ dsc [0 ]. a == 3 , ' string array came back with correct element count' );
374
+ ok (nqp :: elems ( $ dsc [0 ]. a) == 3 , ' string array came back with correct element count' );
375
375
ok ($ dsc [0 ]. a[0 ] eq ' cow' , ' string array first element is correct' );
376
376
ok ($ dsc [0 ]. a[1 ] eq ' sheep' , ' string array second element is correct' );
377
377
ok ($ dsc [0 ]. a[2 ] eq ' pig' , ' string array third element is correct' );
0 commit comments