1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6ok array->reverse->is_empty, 'empty array reverse ok'; 7 8my $arr = array( 1, 2, 3); 9my $reverse = $arr->reverse; 10is_deeply 11 [ $reverse->all ], 12 [ 3, 2, 1 ], 13 'reverse ok'; 14 15is_deeply 16 [ $arr->all ], 17 [ 1, 2, 3 ], 18 'original intact'; 19 20done_testing; 21