1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6ok !defined array->shift, 'empty array shift ok'; 7 8my $arr = array( 1 .. 3 ); 9my $shifted = $arr->shift; 10ok $shifted == 1, 'shifted value ok'; 11is_deeply [ $arr->all ], [ 2, 3 ], 'shift removed correct value'; 12 13done_testing; 14