1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6ok array->join eq '', 'empty array join ok'; 7 8my $arr = array(1 .. 3); 9cmp_ok $arr->join, 'eq', '1,2,3', 'join without params ok'; 10cmp_ok $arr->join('-'), 'eq', '1-2-3', 'join with params ok'; 11cmp_ok $arr->join(''), 'eq', '123', 'join with empty string ok'; 12 13done_testing; 14