Source

perl-Test-TrailingSpace / Test-TrailingSpace / t / dogfood.t

Full commit

use strict;
use warnings;

use Test::More tests => 1;

use Test::TrailingSpace;

my $finder = Test::TrailingSpace->new(
    {
        root => '.',
        filename_regex => qr/\.(?:t|pm|pl)\z/,
    },
);

# TEST
$finder->no_trailing_space(
    "No trailing space was found."
);