[gitmo/MooseX-Params-Validate.git] / t / 006_not_moose.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Exception;

eval <<'EOF';
{
    package Foo;
    use MooseX::Params::Validate;
}
EOF

is(
    $@, '',
    'loading MX::Params::Validate in a non-Moose class does not blow up'
);
ok( Foo->can('validated_hash'), 'validated_hash() sub was added to Foo package' );

done_testing();
Commit	Line	Data
d9d1529d	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
d7a80104	6	use Test::More;
d9d1529d	7	use Test::Exception;
	8
	9	eval <<'EOF';
	10	{
	11	package Foo;
	12	use MooseX::Params::Validate;
	13	}
	14	EOF
	15
	16	is(
	17	$@, '',
	18	'loading MX::Params::Validate in a non-Moose class does not blow up'
	19	);
	20	ok( Foo->can('validated_hash'), 'validated_hash() sub was added to Foo package' );
d7a80104	21
d7a80104	22	done_testing();