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