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