view release on metacpan or  search on metacpan

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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::LongString;

use File::Spec;
use File::Basename;
use File::Temp qw(tempdir);

use_ok 'OPM::Maker::Command::build';

my $dir     = File::Spec->rel2abs( dirname __FILE__ );
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();