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

use strict;
use warnings;

# FIXME - Not sure if this does what I think it does, test..

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

use List::MoreUtils qw/any/;
use Module::Find;
setmoduledirs("$Bin/../lib", "$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
065fbd81	4	# FIXME - Not sure if this does what I think it does, test..
065fbd81	5
046d763d	6	use FindBin qw/$Bin/;
104abdae	7	use lib "$Bin/lib";
046d763d	8
	9	use List::MoreUtils qw/any/;
	10	use Module::Find;
104abdae	11	setmoduledirs("$Bin/../lib", "$Bin/lib");
046d763d	12
	13	use Test::More tests => 4;
	14	use Test::Exception;
	15
	16	my @modules;
	17	lives_ok {
	18	@modules = (useall('CtaalystX'), useall('DynamicAppDemo'));
	19	} 'Use all';
	20	ok @modules;
	21
	22	ok ! any(sub { ! $_->isa('Moose::Object') }, @modules),
	23	'Moose in da hoose';
	24
	25	ok ! any(sub { $_->can('has') }, @modules),
	26	'However, no lolcat to be found';
	27