view release on metacpan or  search on metacpan

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

    {
        name     => 'Trailing tab at the end of a line.',
        files    =>
        {
            'test.pl' => "#!perl\n\nuse strict;\t\n1;\n",
        },
        expected => qr/x The file has no lines with trailing white space/,
    },
    {
        name     => 'Trailing space at the end of a line.',
        files    =>
        {
            'test.pl' => "#!perl\n\nuse strict; \n1;\n",
        },
        expected => qr/x The file has no lines with trailing white space/,
    },
    {
        name     => 'Empty line with spaces.',
        files    =>
        {
            'test.pl' => "#!perl\n\nuse strict;\n    \n1;\n",
        },
        expected => qr/x The file has no lines with trailing white space/,
    },
    {
        name     => 'File without trailing whitespace.',
        files    =>
        {
            'test.pl' => "#!perl\n\nuse strict;\n1;\n",
        },
        expected => qr/o The file has no lines with trailing white space/,
    },
];

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

foreach my $test ( @$tests )
{
    subtest(
        $test->{'name'},
        sub
        {
            plan( tests => 4 );

            my $repository = ok_setup_repository(
                cleanup_test_repository => 1,
                config                  => $test->{'config'},
                hooks                   => [ 'pre-commit' ],
                plugins                 => [ 'App::GitHooks::Plugin::PreventTrailingWhitespace' ],
            );

            # Set up test files.
            ok_add_files(
                files      => $test->{'files'},
                repository => $repository,
            );

            # Try to commit.
            my $stderr;
            lives_ok(
                sub
                {
                    $stderr = Capture::Tiny::capture_stderr(
                        sub
                        {
                            $repository->run( 'commit', '-m', 'Test message.' );
                        }
                    );
                    note( $stderr );
                },
                'Commit the changes.',
            );

            like(
                $stderr,
                $test->{'expected'},
                "The output matches expected results.",
            );
        }
    );
}