# -*- cperl -*-

use 5.010;
use strict;
use warnings;
use lib 't';
use Test::More tests => 1;

require "test-functions.pl";

my ($repo, $file, $clone) = new_repos();
install_hooks($repo, <<'EOF');
COMMIT_MSG {
    my ($git, $msg_file) = @_;
    die "commit-msg died!\n";
};
EOF

append_file($file, "new line\n");
$repo->command(add => $file);
test_nok('cannot commit', $repo,
	 'commit', '-q', '-m', 'new commit');