1use Test::More; 2use strict; use warnings FATAL => 'all'; 3 4use List::Objects::WithUtils 'array'; 5 6my $arr = array(1 .. 3); 7 8my $ref = $arr->unbless; 9ok ref $ref eq 'ARRAY', 'unbless returned ARRAY'; 10is_deeply $ref, [ 1 .. 3 ], 'unbless ok'; 11 12ok ref array->unbless eq 'ARRAY', 'empty array unbless ok'; 13 14 15$ref = $arr->damn; 16ok ref $ref eq 'ARRAY', 'damn returned ARRAY'; 17is_deeply $ref, [ 1 .. 3 ], 'damn ok'; 18 19 20$ref = $arr->TO_JSON; 21ok ref $ref eq 'ARRAY', 'TO_JSON returned ARRAY'; 22is_deeply $ref, [ 1 .. 3 ], 'TO_JSON ok'; 23 24 25$ref = $arr->TO_ZPL; 26ok ref $ref eq 'ARRAY', 'TO_ZPL returned ARRAY'; 27is_deeply $ref, [ 1 .. 3 ], 'TO_ZPL ok'; 28 29 30 31done_testing; 32