# -*- perl -*-
#use Test::More qw/no_plan/;
use Test::More tests => 6;
use Resource::Loader;
use Data::Dumper;
ok $mgr = Resource::Loader->new, "new()";
isa_ok $mgr, 'Resource::Loader';
ok $m2 = Resource::Loader->new( testing => 1,
verbose => 1,
resources => [ { name => 'never',
when => sub { 0 },
what => sub { &die },
},
{ name => 'always',
when => sub { 1 },
what => sub { print @_ },
args => [ 1, 2, 3 ],
},
],
), "new( args )";
is $m2->testing, 1, "testing()";
is $m2->verbose, 1, "verbose()";
ok ! $m2->cont, "cont()";