[gitmo/Mouse.git] / t / 001_mouse / 072_tc_extra_args.t

#!perl
use strict;
use Test::More tests => 2;
use if 'Mouse' ne 'Mo' . 'use', 'Test::More', skip_all => 'Mouse only';
use Mouse::Meta::TypeConstraint;

my @args;
my $tc = Mouse::Meta::TypeConstraint->new(
    constraint => sub {
        is_deeply \@args, \@_;
    },
);

@args = qw(foo bar baz);
$tc->check( @args );

@args = (100, 200);
$tc->check( @args );

done_testing;
Commit	Line	Data
89d7a4b2	1	#!perl
	2	use strict;
	3	use Test::More tests => 2;
	4	use if 'Mouse' ne 'Mo' . 'use', 'Test::More', skip_all => 'Mouse only';
	5	use Mouse::Meta::TypeConstraint;
	6
	7	my @args;
	8	my $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
	20	done_testing;