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