#!perl -w
use strict;
use Test::More;
use Test::Mouse;
use Data::Validator;
my $rule = Data::Validator->new(
foo => 'Int',
)->with('Method');
does_ok $rule, 'Data::Validator::Role::Method';
$rule = Data::Validator->new(
foo => 'Int',
)->with('Sequenced', 'AllowExtra', 'NoThrow', 'Croak');
does_ok $rule, 'Data::Validator::Role::Sequenced';
does_ok $rule, 'Data::Validator::Role::AllowExtra';
does_ok $rule, 'Data::Validator::Role::NoThrow';
does_ok $rule, 'Data::Validator::Role::Croak';
done_testing;