#!/usr/bin/pugs
use v6;
use Test;
=kwid
Testing array slices.
=cut
plan 10;
{ my @array = (3,7,9);
is(@array[0,1,2], (3,7,9), "basic slice");
is(@array[(0,1,2)], (3,7,9), "basic slice, explicit list");
is(@array[0,0,2,1,1,2], "3 3 9 7 7 9", "basic slice, duplicate indices");
my %slice = (0=>3, 1=>7, 2=>9);
is((3,7,9), [@array[%slice.keys].sort], "values from hash keys, part 1");
is((3,7,9), [@array[%slice.keys.sort]], "values from hash keys, part 2");
is((3,7,9), [@array[(0,1,1)>>+<<(0,0,1)]], "calculated slice: hyperop");
my @slice = (1,2);
is(@array[@slice], "7 9", "slice from array, part 1");
is(@array[@slice], (7,9), "slice from array, part 2");
is(@array[@slice[1]], (9), "slice from array slice, part 1");
is(@array[@slice[0,1]], (7,9), "slice from array slice, part 2");
}