any.t   [plain text]


use strict;
use warnings;

use t::std;

{
	check_test(
		sub {
			cmp_deeply("wine", any("beer", "wine"))
		},
		{
			actual_ok => 1,
			diag => "",
		},
		"any eq"
	);

	check_test(
		sub {
			cmp_deeply("whisky", any("beer", "wine"))
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Comparing \$data with Any
got      : 'whisky'
expected : Any of ( 'beer', 'wine' )
EOM
		},
		"any not eq"
	);

	check_test(
		sub {
			cmp_deeply("whisky", any("beer") | "wine")
		},
		{
			actual_ok => 0,
			diag => <<EOM,
Comparing \$data with Any
got      : 'whisky'
expected : Any of ( 'beer', 'wine' )
EOM
		},
		"any with |"
	);

	check_tests(
		sub {
			cmp_deeply("whisky", re("isky") | "wine", "pass");
			cmp_deeply("whisky", re("iskya") | "wine", "fail")
		},
		[
			{ actual_ok => 1 },
			{ actual_ok => 0 }
		],
		"| without any"
	);

}