use strict; use warnings; use t::std; { check_tests( sub { cmp_deeply([], arraylength(0), "0"); cmp_deeply([1..3], arraylength(3), "3"); }, [ { name => "0", actual_ok => 1, diag => "", }, { name => "3", actual_ok => 1, diag => "", } ], "len ok" ); check_tests( sub { cmp_deeply({}, arraylength(2)); }, [ { actual_ok => 0, diag => < 0, diag => < "string", actual_ok => 0, diag => < "hash", actual_ok => 0, diag => < 0, diag => <[0] got : array with 1 element(s) expect : array with 2 element(s) EOM }, ], "deep bad length" ); }