diff options
author | Rafael Kitover <rkitover@cpan.org> | 2010-07-13 02:46:03 -0400 |
---|---|---|
committer | Rafael Kitover <rkitover@cpan.org> | 2010-07-13 02:46:03 -0400 |
commit | df491f72df4e5e7d9edda466a9408528c843ba33 (patch) | |
tree | 2677c0e92f9d5b39100428e7927ee20db7e10b1b /t/02-mx-m-s.t | |
parent | 9e804fe12e784d73f58f24ca322b5ae8405f3f5e (diff) | |
download | mx-alwayscoerce-df491f72df4e5e7d9edda466a9408528c843ba33.tar.gz mx-alwayscoerce-df491f72df4e5e7d9edda466a9408528c843ba33.zip |
switch to Test::Exception, add failing test for MooseX::Method::Signatures
Diffstat (limited to 't/02-mx-m-s.t')
-rw-r--r-- | t/02-mx-m-s.t | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/t/02-mx-m-s.t b/t/02-mx-m-s.t new file mode 100644 index 0000000..3501d34 --- /dev/null +++ b/t/02-mx-m-s.t @@ -0,0 +1,36 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use Test::More; +use Test::Exception; + +eval { require MooseX::Method::Signatures }; +plan skip_all => "No MooseX::Method::Signatures" if $@; + +plan tests => 2; + +{ + package MyClass; + use Moose; + use MooseX::Method::Signatures; + use MooseX::AlwaysCoerce; + use Moose::Util::TypeConstraints; + + BEGIN { + subtype 'MyType', as 'Int'; + coerce 'MyType', from 'Str', via { length $_ }; + + subtype 'Uncoerced', as 'Int'; + } + + method foo (MyType :$foo, Uncoerced :$bar) { + return "$foo $bar"; + } +} + +ok( (my $instance = MyClass->new), 'instance' ); + +lives_and { + is $instance->foo(foo => "text", bar => 42), '4 42'; +} 'method called with coerced and uncoerced parameters'; |