use strict;
use warnings;
use Test::More;
use Module::Format::PerlMF_App;
use vars qw($trap);
eval q{use Test::Trap qw( trap $trap :flow:stderr(systemsafe):stdout(systemsafe):warn );};
if ($@)
{
plan skip_all => "Test::Trap not found.";
}
plan tests => 6;
# TEST
ok(1, "Test is OK.");
{
trap(sub {
Module::Format::PerlMF_App->new(
{
argv => [qw/as_rpm_colon Data::Dump XML-Grammar-Fortune/],
},
)->run();
});
# TEST
is (
$trap->stdout(),
qq{perl(Data::Dump) perl(XML::Grammar::Fortune)\n},
'as_rpm_colon works as expected.',
);
}
{
trap(sub {
Module::Format::PerlMF_App->new(
{
argv => [qw/as_colon Data::Dump XML-Grammar-Fortune/],
},
)->run();
});
# TEST
is (
$trap->stdout(),
qq{Data::Dump XML::Grammar::Fortune\n},
'as_colon works as expected.',
);
}
{
trap(sub {
Module::Format::PerlMF_App->new(
{
argv => [qw/deb Foo::Bar::Baz Quux-Stanley/],
},
)->run();
});
# TEST
is (
$trap->stdout(),
qq{libfoo-bar-baz-perl libquux-stanley-perl\n},
'deb works as expected.',
);
}
{
trap(sub {
Module::Format::PerlMF_App->new(
{
argv => [qw/as_rpm_colon -0 Data::Dump XML-Grammar-Fortune/],
},
)->run();
});
# TEST
is (
$trap->stdout(),
qq{perl(Data::Dump)\0perl(XML::Grammar::Fortune)},
'as_rpm_colon -0 works as expected.',
);
}
{
trap(sub {
Module::Format::PerlMF_App->new(
{
argv => [qw/as_rpm_colon -n Data::Dump XML-Grammar-Fortune/],
},
)->run();
});
# TEST
is (
$trap->stdout(),
qq{perl(Data::Dump)\nperl(XML::Grammar::Fortune)\n},
'-n works as expected.',
);
}