#!/usr/bin/perl
use
strict;
use
warnings;
use
Test::More;
use
Test::LongString;
use
File::Spec;
use
File::Basename;
use_ok
'OPM::Maker::Command::filetest'
;
my
$dir
= File::Spec->catdir( dirname( __FILE__ ),
'TestSMTP'
);
my
$file
=
'opmbuild_filetest_ignore'
;
copy
$dir
.
'/'
.
$file
,
$dir
.
'/.'
.
$file
;
my
$sopm
= File::Spec->catfile(
$dir
,
'TestSMTP.sopm'
);
{
my
$exec_output
= capture_stdout {
OPM::Maker::Command::filetest::execute(
undef
, {}, [
$sopm
] );
};
diag
$exec_output
;
is
$exec_output
,
''
;
}
done_testing();