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