Blame t/02_list.t

Packit 745a47
use strict;
Packit 745a47
use warnings;
Packit 745a47
use Test::More tests => 2;
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 $file     = "t/data/list";
Packit 745a47
my @requires = qx($PERL_REQ $file);
Packit 745a47
my @provides = qx($PERL_PROV $file);
Packit 745a47
Packit 745a47
#
Packit 745a47
# Provides
Packit Service 74cec8
my @expectedprovides = (
Packit Service 74cec8
    "$perl_ns(NoCleanA)\n",
Packit Service 74cec8
    "$perl_ns(NoCleanB)\n",
Packit Service 74cec8
    "$perl_ns(ToRemove)\n",
Packit Service 74cec8
    "$perl_ns(Foo)\n",
Packit Service 74cec8
);
Packit Service 74cec8
is_deeply([ sort @provides ], [ sort @expectedprovides ], "All expected provides were found.");
Packit 745a47
Packit 745a47
#
Packit 745a47
# Requires
Packit 745a47
my @expectedrequires = (
Packit 745a47
    "$perl_ns(Alpha)\n",
Packit 745a47
    "$perl_ns(Beta)\n",
Packit 745a47
    "$perl_ns(Gamma)\n",
Packit 745a47
    "$perl_ns(Delta)\n",
Packit 745a47
    "$perl_ns(Epsilon)\n",
Packit 745a47
    "$perl_ns(Some::Crazy::Module)\n",
Packit 745a47
    "$perl_ns(Another::Crazy::Module)\n",
Packit 745a47
    "$perl_ns(aliased)\n",
Packit 745a47
    "$perl_ns(base)\n",
Packit 745a47
    "$perl_ns(parent)\n",
Packit 745a47
    "$perl_ns(Theta)\n",
Packit 745a47
    "$perl_ns(Kappa::Lambda)\n",
Packit 745a47
    "$perl_ns(Mu::Nu)\n",
Packit 745a47
    "$perl_ns(Try)\n",
Packit 745a47
    "$perl_ns(This)\n",
Packit 745a47
    "$perl_ns(One)\n",
Packit 745a47
    "$perl_ns(constant)\n",
Packit 745a47
    "$perl_ns(TARGET_CLASS)\n",
Packit 745a47
    "$perl_ns(XML::XQL::Element)\n",
Packit 745a47
    "$perl_ns(Class::Accessor::Fast)\n",
Packit Service 74cec8
    "$perl_ns(NoCleanA)\n",
Packit Service 74cec8
    "$perl_ns(NoCleanB)\n",
Packit 745a47
);
Packit 745a47
Packit 745a47
is_deeply([ sort @requires ], [ sort @expectedrequires ], "Only expected requires were found.");