1 use warnings; no warnings 'deprecated';
4 use Test::More tests => 23;
7 our @i5 = (3, 3, 3, 3, 3);
12 is_deeply [ scalar splice @t ], [qw(f)];
16 is_deeply [ splice @t ], [qw(a b c d e f)];
20 is_deeply [ scalar splice @t, 5 ], [qw(f)];
21 is_deeply \@t, [qw(a b)];
24 is_deeply [ splice @t, 5 ], [qw(c d e f)];
25 is_deeply \@t, [qw(a b)];
28 is_deeply [ scalar splice @t, @i5 ], [qw(f)];
29 is_deeply \@t, [qw(a b)];
32 is_deeply [ splice @t, @i5 ], [qw(c d e f)];
33 is_deeply \@t, [qw(a b)];
36 is_deeply [ scalar splice @t, 5, 2 ], [qw(d)];
37 is_deeply \@t, [qw(a b e f)];
40 is_deeply [ splice @t, 5, 2 ], [qw(c d)];
41 is_deeply \@t, [qw(a b e f)];
44 is_deeply [ scalar splice @t, 5, 2, qw(x y z) ], [qw(d)];
45 is_deeply \@t, [qw(a b x y z e f)];
48 is_deeply [ splice @t, 5, 2, qw(x y z) ], [qw(c d)];
49 is_deeply \@t, [qw(a b x y z e f)];
53 is_deeply \@t, [qw(a b d e f)];
57 is_deeply \@t, [qw(a b c d f)];
63 is_deeply \@t, [qw(b c d e f)];