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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

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
	8	eval <<'EOF';
	9	{
	10	package Foo;
	11	use MooseX::Params::Validate;
	12	}
	13	EOF
	14
	15	is(
	16	$@, '',
	17	'loading MX::Params::Validate in a non-Moose class does not blow up'
	18	);
37088308	19	ok(
	20	Foo->can('validated_hash'),
	21	'validated_hash() sub was added to Foo package'
	22	);
d7a80104	23
d7a80104	24	done_testing();