view release on metacpan or  search on metacpan

lib/OPM/Maker/Command/sopmtest.pm  view on Meta::CPAN

        print "No file given!";
        return;
    }
    
    if ( !-f $file ) {
        print "$file does not exist";
        return;
    }

    eval {
        my $content = do{ local (@ARGV, $/) = $file; <> };
        OPM::Validate->validate( $content, 1 );
        1;
    } or do {
        print ".sopm is not valid: $@\n";
        return;
    };
    
    return 1;
}

t/build/07_basedir.t  view on Meta::CPAN

my $output  = tempdir( CLEANUP => 1 );
my $sopm    = File::Spec->catfile( $dir, qw/.. sopm TestSMTP.sopm/ );
my $basedir = File::Spec->catfile( $dir, qw/.. valid TestSMTP/);
my $opm     = File::Spec->catfile( $output, 'TestSMTP-0.0.1.opm' );

OPM::Maker::Command::build::execute( undef, { basedir => $basedir, output => $output }, [ $sopm ] );

ok -e $opm;

my ($content) = do {
    local (@ARGV, $/) = $opm;
    <>;
};

like $content, qr{<File.*?>.{30,}</File>}xms;

ok( unlink $opm );
ok !-e $opm;

done_testing();