view release on metacpan or  search on metacpan

t/10-run.t  view on Meta::CPAN

	{
		name           => 'Branch: dev1234 prefix; Project prefixes: OPS, DEV, TEST; commit ticket ID: DEV-1234; Invalid normalize_branch_ticket_id regex; expected: failure.',
		branch         => 'dev1234_test_branch',
		config         => "[_]\n"
			. "project_prefixes = OPS, DEV, TEST\n"
			. 'extract_ticket_id_from_branch = /^($project_prefixes\d+)/' . "\n"
			. 'normalize_branch_ticket_id = s/^(.*?)/(\d+)$/\U$1-$2/' . "\n"
			. 'extract_ticket_id_from_commit = /^($project_prefixes-\d+|--): /' . "\n",
		files          => $files,
		commit_message => 'DEV-1234: Test',
		expected       => qr/\QERROR: Unsafe replacement pattern in 'normalize_branch_ticket_id', escape your slashes\E/,
	},
];

# Bail out if Git isn't available.
test_requires_git();
plan( tests => scalar( @$tests ) );

foreach my $test ( @$tests )
{
	subtest(