#!/usr/bin/perl
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();