switch to Test::Exception, add failing test for MooseX::Method::Signatures

[gitmo/MooseX-AlwaysCoerce.git] / 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 (file)
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';