Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

96 lines (70 sloc) 2.661 kB
use v6;
use Test;
# L<S32::Containers/"Array"/"=item shift">
=begin description
Shift tests
=end description
plan 31;
{
my @shift = (1, 2, 3, 4, 5);
is(+@shift, 5, 'we have 4 elements in our array');
my $a = shift(@shift);
is($a, 1, 'shift(@shift) works');
is(+@shift, 4, 'we have 3 elements in our array');
$a = shift @shift;
is($a, 2, 'shift @shift works');
is(+@shift, 3, 'we have 2 elements in our array');
$a = @shift.shift();
is($a, 3, '@shift.shift() works');
is(+@shift, 2, 'we have 1 element in our array');
$a = @shift.shift;
is($a, 4, '@shift.shift works');
{
is(+@shift, 1, 'we have 1 element in our array');
$a = shift(@shift);
is(+@shift, 0, 'we have no elements in our array');
ok(!defined(shift(@shift)), 'after the array is exhausted it gives undefined');
}
}
{
my @shift = (1, 2, 3, 4);
is(+@shift, 4, 'we have 4 elements in our array');
is(shift(@shift), 1, 'inline shift(@shift) works');
is(+@shift, 3, 'we have 3 elements in our array');
is((shift @shift), 2, 'inline shift @shift works');
is(+@shift, 2, 'we have 2 elements in our array');
is(@shift.shift(), 3, 'inline @shift.shift() works');
is(+@shift, 1, 'we have 1 elements in our array');
is(@shift.shift, 4, 'inline @shift.shift works');
is(+@shift, 0, 'we have no elements in our array');
ok(!defined(shift(@shift)), 'again, the array is exhausted and we get undefined');
ok( shift(@shift) ~~ Failure, 'again, Failure from shifting empty array' );
}
# invocant syntax with inline arrays
{
is([1, 2, 3].shift, 1, 'this will return 1');
ok(!defined([].shift), 'this will return undefined');
ok( [].shift ~~ Failure, 'shift of empty array is Failure' );
}
# testing some edge cases
{
my @shift;
ok(!defined(shift(@shift)), 'shift on an empty array returns undefined');
ok( shift(@shift) ~~ Failure, 'shift on empty array is Failure');
}
# testing some error cases
{
my @shift = 1 .. 5;
dies_ok({ shift() }, 'shift() requires arguments');
dies_ok({ shift(@shift, 10) }, 'shift() should not allow extra arguments');
dies_ok({ @shift.shift(10) }, 'shift() should not allow extra arguments');
dies_ok({ 42.shift }, '.shift should not work on scalars');
}
# Push with Inf arrays (waiting on answers to perl6-compiler email)
# {
# my @shift = 1 .. Inf;
# # best not to uncomment this it just go on forever
# todo_throws_ok { 'shift(@shift)' }, '?? what should this error message be ??', 'cannot shift off of a Inf array';
# }
done;
# vim: syn=perl6
Jump to Line
Something went wrong with that request. Please try again.