1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
use v6.c;
use Test;
# L<S32::Containers/"Array"/"=item shift">
=begin description
Shift tests
=end description
plan 33;
{
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');
#?niecza skip 'undeclared name Failure'
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');
#?niecza skip 'undeclared name Failure'
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');
#?niecza skip 'undeclared name Failure'
ok( shift(@shift) ~~ Failure, 'shift on empty array is Failure');
}
# testing some error cases
{
my @shift = 1 .. 5;
throws-like 'shift()', X::TypeCheck::Argument, 'shift() requires arguments';
throws-like '42.shift', X::Method::NotFound, '.shift should not work on scalars';
dies-ok { EVAL('shift(@shift, 10)') }, 'shift() should not allow extra arguments';
dies-ok { EVAL(' @shift.shift(10)') }, 'shift() should not allow extra arguments';
}
# 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';
# }
{
my @a = 1,2;
@a[0]:delete;
ok @a.shift === Nil, "shifting sparse array results in Nil, not failure";
is @a.elems, 1, "and it actually shifted the array";
}
# vim: syn=perl6
|
