#!perl -T

# Make sure we have a .t file each *.pm.  This prevents a forgetful
# developer from creating a .pm without making the test, too.

# If you've made this test fail, it's because you need a t/lib/*.t
# file to test your new module.

use warnings;
use strict;

use Test::More;

unless ( $ENV{RELEASE_TESTING} ) {
    plan( skip_all => "these tests are for release candidate testing" );
}

my @pms = glob( '*.pm' );

plan tests => scalar @pms;

for my $pm ( @pms ) {
    my $t = $pm;
    $t =~ s/\.pm$/.t/ or die;
    ok( -r "t/lib/$t", "$pm has a corresponding $t" );
}

done_testing();