1#!/usr/bin/env perl
2use strict;
3use warnings;
4use Test::More tests => 7;
5use autobox::Core;
6
7my @array = qw(foo bar baz);
8
9ok @array->tail;
10is_deeply [@array->tail], ['bar', 'baz'];
11
12is_deeply [@array->tail(1)], ['baz'];
13is_deeply [@array->tail(2)], ['bar', 'baz'];
14is_deeply [@array->tail(3)], ['foo', 'bar', 'baz'];
15
16my @tail = @array->tail;
17is scalar @tail, 2, "Returns a list in list context";
18
19my $tail = @array->tail;
20is ref $tail, 'ARRAY', "Returns an arrayref in scalar context";
21