use strict; use warnings; use t::std; { check_test( sub { cmp_deeply(["a", "b"], ["a", "b"], "array eq"); }, { name => "array eq", actual_ok => 1, diag => "", } ); check_test( sub { cmp_deeply(["a", "b"], ["a", "c"], "array not eq"); }, { name => "array not eq", actual_ok => 0, diag => <[1] got : 'b' expect : 'c' EOM } ); check_test( sub { cmp_deeply(["a", "b"], ["a"], "array got DNE"); }, { name => "array got DNE", actual_ok => 0, diag => < "array expected DNE", actual_ok => 0, diag => < 0, diag => <[0] got : array with 1 element(s) expect : array with 2 element(s) EOM }, ], "deep bad length" ); }