[catagits/CatalystX-DynamicComponent.git] / t / 00load_and_sane.t

use strict;
use warnings;

use FindBin qw/$Bin/;
use lib "$Bin/../lib";

use List::MoreUtils qw/any/;
use Module::Find;
setmoduledirs("$Bin/../lib");

use Test::More tests => 4;
use Test::Exception;

my @modules;
lives_ok {
    @modules = (useall('CtaalystX'), useall('DynamicAppDemo'));
} 'Use all';
ok @modules;

ok ! any(sub { ! $_->isa('Moose::Object') }, @modules),
    'Moose in da hoose';

ok ! any(sub { $_->can('has') }, @modules),
    'However, no lolcat to be found';
Commit	Line	Data
046d763d	1	use strict;
	2	use warnings;
	3
	4	use FindBin qw/$Bin/;
	5	use lib "$Bin/../lib";
	6
	7	use List::MoreUtils qw/any/;
	8	use Module::Find;
	9	setmoduledirs("$Bin/../lib");
	10
	11	use Test::More tests => 4;
	12	use Test::Exception;
	13
	14	my @modules;
	15	lives_ok {
	16	@modules = (useall('CtaalystX'), useall('DynamicAppDemo'));
	17	} 'Use all';
	18	ok @modules;
	19
	20	ok ! any(sub { ! $_->isa('Moose::Object') }, @modules),
	21	'Moose in da hoose';
	22
	23	ok ! any(sub { $_->can('has') }, @modules),
	24	'However, no lolcat to be found';
	25