view release on metacpan or  search on metacpan

t/45-Hook/PrepareCommitMsg/10-run.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use App::GitHooks::Constants qw( :HOOK_EXIT_CODES );
use App::GitHooks::Test;


# Since git ignores the return value of the prepare-commit-msg hook, we can't
# test using the exit code here. Instead, we use the
# App::GitHooks::Plugin::Test::PrintSTDERR, which allows us to verify that the
# hook was properly triggered and that plugins for that hook are loaded
# correctly.

# List of tests to perform.
my $tests =
[
	{
		name        => 'Trigger plugins for prepare-commit-msg.',
		config      => "[Test::PrintSTDERR]\n"
			. "prepare_commit_msg = Triggered prepare-commit-msg.\n",
		expected    => qr/Triggered prepare-commit-msg./,
		exit_status => $HOOK_EXIT_SUCCESS,
	},
];

# Run tests.
App::GitHooks::Test::test_hook(
	cleanup_test_repository => 1,
	hook_name               => 'prepare-commit-msg',
	plugins                 => [ 'App::GitHooks::Plugin::Test::PrintSTDERR' ],
	tests                   => $tests,
);