#!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;