|
Packit |
745a47 |
use strict;
|
|
Packit |
745a47 |
use warnings;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use Test::More tests => 17;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use lib 't/lib';
|
|
Packit |
745a47 |
use PerlNS qw($PERL_NAMESPACE $PERL_PROV $PERL_REQ);
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
my $perl_ns = $PERL_NAMESPACE;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
my @requires = qx($PERL_REQ t/testdata);
|
|
Packit |
745a47 |
my @provides = qx($PERL_PROV t/testdata);
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
#
|
|
Packit |
745a47 |
# Provides
|
|
Packit |
745a47 |
ok(grep(/$perl_ns\(Test\)/, @provides), 'Test module is provided');
|
|
Packit |
745a47 |
ok(grep(/$perl_ns\(TMP::tmp\)/, @provides), 'TMP::tmp module is provided');
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
#
|
|
Packit |
745a47 |
# Requires
|
|
Packit |
745a47 |
my @list_requires = ("Test::Simple", "POE", "Any::Moose", "aliased",
|
|
Packit |
745a47 |
"Moose", "Test::Requires", "base", "Exporter", "parent", "DBI",
|
|
Packit |
745a47 |
"File::Copy", "Carp", "Use::WhiteSpace",
|
|
Packit |
745a47 |
);
|
|
Packit |
745a47 |
foreach my $mod (@list_requires) {
|
|
Packit |
745a47 |
ok(grep(/^$perl_ns\($mod\)$/,@requires), "$mod module is required")
|
|
Packit |
745a47 |
}
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
ok(grep(/$perl_ns\(:VERSION\) >= 5\.6\.1/, @requires), "'$perl_ns(:VERSION) >= 5.6.1' is required");
|
|
Packit |
745a47 |
ok(grep(/$perl_ns\(version\) >= 0.77/, @requires), "'$perl_ns(version) >= 0.77' is required");
|