1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array(4); 7my $unshifted = $arr->unshift( 1 .. 3 ); 8ok $unshifted == $arr, 'unshift returned self'; 9is_deeply 10 [ $arr->all ], 11 [ 1 .. 4 ], 12 'unshift ok'; 13 14ok array->unshift(1)->count == 1, 'unshift to empty array ok'; 15 16done_testing; 17