#!/usr/bin/perl
use strict;
use Capture::Tiny qw(capture_stdout);
use File::Temp qw(tempdir);
use_ok 'OPM::Maker::Command::dependencies';
my $dir = File::Spec->rel2abs( dirname __FILE__ );
my $files_dir = File::Spec->catdir( $dir, '..', 'valid', 'SecondSMTP' );
my $sopm = File::Spec->catfile( $files_dir, 'SecondSMTP.sopm' );
my $opm = File::Spec->catfile( $files_dir, 'SecondSMTP-0.0.1.opm' );
my $output = q~TestPackage - 1.0 (OPM package)
SMS::Send - 0.35 (CPAN module)
~;
{
my $exec_output = capture_stdout {
OPM::Maker::Command::dependencies::execute( undef, {}, [ $sopm ] );
};
is_string $exec_output, $output, $sopm;
}
{
my $exec_output = capture_stdout {
OPM::Maker::Command::dependencies::execute( undef, {}, [ $opm ] );
};
is_string $exec_output, $output, $opm;
}
done_testing();