1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4use List::Objects::WithUtils 'array';
5
6ok !defined array->random, 'empty array random ok';
7
8my $arr = array(qw/ foo bar /);
9my $random = $arr->random;
10ok
11  $random eq 'foo' || $random eq 'bar',
12  'random() ok';
13
14done_testing;
15