1#!perl
2use strict;
3use Test::More tests => 2;
4use if 'Mouse' ne 'Mo' . 'use', 'Test::More', skip_all => 'Mouse only';
5use Mouse::Meta::TypeConstraint;
6
7my @args;
8my $tc = Mouse::Meta::TypeConstraint->new(
9    constraint => sub {
10        is_deeply \@args, \@_;
11    },
12);
13
14@args = qw(foo bar baz);
15$tc->check( @args );
16
17@args = (100, 200);
18$tc->check( @args );
19
20done_testing;
21