1use Test::More;
2use strict; use warnings FATAL => 'all';
3
4use List::Objects::WithUtils 'array';
5
6my $arr = array( 1 .. 10 );
7ok $arr->clear == $arr, 'clear() returned self';
8ok $arr->is_empty, 'array is_empty after clear';
9ok array->clear->is_empty, 'empty array clear() ok';
10
11done_testing;
12