From df491f72df4e5e7d9edda466a9408528c843ba33 Mon Sep 17 00:00:00 2001 From: Rafael Kitover Date: Tue, 13 Jul 2010 02:46:03 -0400 Subject: switch to Test::Exception, add failing test for MooseX::Method::Signatures --- t/02-mx-m-s.t | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 t/02-mx-m-s.t (limited to 't/02-mx-m-s.t') 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'; -- cgit v1.2.3-54-g00ecf