File Coverage

blib/lib/Test/CPAN/README.pm

Criterion	Covered	Total	%
statement	21	45	46.6
branch	0	14	0.0
condition	0	3	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	28	70	40.0

package Test::CPAN::README;

use strict;
use warnings;

use Test::Builder;
use Module::Want qw(have_mod ns2distname distname2ns);
$Test::CPAN::README::VERSION = '0.2';

my $Test = Test::Builder->new;

sub import {
    my $self = shift;

    my $caller = caller;
    no strict 'refs';    ## no critic
    *{ $caller . '::readme_ok' } = \&readme_ok;

    $Test->exported_to($caller);
    $Test->plan(@_);
}

sub readme_ok {
    my ($ns) = @_;

    if ( !$ns ) {
        if ( -e "META.json" ) {
            require JSON::Syck;
            $ns = JSON::Syck::LoadFile("META.json")->{'name'};
        }
        elsif ( -e "META.yml" ) {
            require YAML::Syck;
            $ns = YAML::Syck::LoadFile("META.yml")->{'name'};
        }
        elsif ( -e "META.yaml" ) {
            require YAML::Syck;
            $ns = YAML::Syck::LoadFile("META.yaml")->{'name'};
        }
        else {
            $Test->ok( 0, 'readme_ok() could not find META' );
            return;
        }

        $ns = distname2ns($ns);
    }

    if ( !have_mod($ns) ) {
        $Test->ok( 0, 'readme_ok() could not load NS' );
        return;
    }

    my $pkg = ns2distname($ns);
    my $cur = $ns->VERSION;

    $Test->plan( tests => 1 );
    if ( !-f 'README' && -s _ ) {
        $Test->ok( 0, 'no README file' );
    }
    else {
        open my $fh, '<', 'README' or die "Could not read README: $!";
        my ($first_line) = <$fh>;
        close $fh;
        $Test->is_eq( $first_line, "$pkg version $cur\n", 'First line is " version \n"' );
    }
}

1;

__END__