use strict;
use warnings;
-use Test::More tests => 3;
-
-use Test::Requires {
- 'MooseX::Method::Signatures' => 0.01,
-};
-
-use Test::Fatal;
-use Test::NoWarnings;
+use Test::More;
{
package MyClass;
use Moose;
- use MooseX::Method::Signatures;
+ use Test::Requires {
+ 'MooseX::Method::Signatures' => 0.01,
+ };
use MooseX::AlwaysCoerce;
use Moose::Util::TypeConstraints;
}
}
+use Test::Fatal;
+use Test::NoWarnings;
+plan tests => 4;
+
ok( (my $instance = MyClass->new), 'instance' );
TODO: {
is( exception {
is $instance->foo(foo => "text", bar => 42), '4 42';
- }, undef, 'method called with coerced and uncoerced parameters' );
+ }, undef, 'method called with coerced and uncoerced parameters' )
+ or todo_skip 'is() test never ran', 1;
}
'MooseX::Role::Parameterized' => 0.25,
};
+plan tests => 12;
+use Test::NoWarnings;
+
eval <<'EOF';
package Role;
use MooseX::Role::Parameterized 0.25;
EOF
-plan tests => 12;
-eval 'use Test::NoWarnings';
ok( (my $instance = MyClass->new), 'instance' );