Blob Blame History Raw
use strict;
use warnings;
use Test::More tests => 2;
use Test::Simple;

use lib 't/lib';
use PerlNS qw($PERL_NAMESPACE $PERL_PROV $PERL_REQ);

my $perl_ns = $PERL_NAMESPACE;

my $files    = "t/data/basic";
my @requires = qx($PERL_REQ $files);
my @provides = qx($PERL_PROV $files);

#
# Provides
is(scalar(@provides), 0, 'No package is provided');

#
# Requires
my @expectedrequires = (
    "$perl_ns(:VERSION) >= 5.6.1\n",
    "$perl_ns(:VERSION) >= 5.6.0\n",
    "$perl_ns(:VERSION) >= 5.10.0\n",
    "$perl_ns(Alpha) >= 0.12\n",
    "$perl_ns(Alpha::One)\n",
    "$perl_ns(Alpha::Two)\n",
    "$perl_ns(Beta)\n",
    "$perl_ns(Epsilon)\n",
    "$perl_ns(Eta)\n",
    "$perl_ns(ExtUtils::MM_Unix)\n",
    "$perl_ns(Gamma)\n",
    "$perl_ns(Iota)\n",
    "$perl_ns(Kappa)\n",
    "$perl_ns(Lambda)\n",
    "$perl_ns(Theta)\n",
);

is_deeply([ sort @requires ], [ sort @expectedrequires ], "Only expected requires were found.");