array.t   [plain text]


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 => <<EOM,
Compared \$data->[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 => <<EOM,
Compared array length of \$data
   got : array with 2 element(s)
expect : array with 1 element(s)
EOM
		}
	);
	check_test(
		sub {
			cmp_deeply(["a"], ["a", "b"], "array expected DNE");
		},
		{
			name => "array expected DNE",
			actual_ok => 0,
			diag => <<EOM,
Compared array length of \$data
   got : array with 1 element(s)
expect : array with 2 element(s)
EOM
		}
	);
	check_tests(
		sub {
			cmp_deeply([[1]], [[1, 2]]);
		},
		[
			{
				actual_ok => 0,
				diag => <<EOM,
Compared array length of \$data->[0]
   got : array with 1 element(s)
expect : array with 2 element(s)
EOM
			},
		],
		"deep bad length"
	);
}