#!/usr/bin/env perl
use strict;
use warnings;
-use Test::Exception;
-use Test::More tests => 2;
+use Test::More;
BEGIN {
package TypeLib;
[split //]
};
}
+
{
- package AClass;
- use Moose;
BEGIN { TypeLib->import(qw/
MyChar MyDigit ArrayRefOfMyCharOrDigit/
) };
use MooseX::Types::Moose 'ArrayRef';
- has parameterized => (is => 'rw', isa => ArrayRef[MyChar|MyDigit], coerce => 1);
- has subtype_parameterized => (is => 'rw', isa => ArrayRefOfMyCharOrDigit, coerce => 1);
-}
-
-my $instance = AClass->new;
+ my $parameterized = ArrayRef[MyChar|MyDigit];
+ { local $::TODO = "see comments in MooseX::Types->create_arged_...";
+ ::ok( $parameterized->has_coercion, 'coercion applied to parameterized type' );
+ }
-lives_ok { $instance->parameterized('foo') }
- 'coercion applied to parameterized type';
+ my $subtype = ArrayRefOfMyCharOrDigit;
+ ::ok( $subtype->has_coercion, 'coercion applied to subtype' );
+}
-lives_ok { $instance->subtype_parameterized('foo') }
- 'coercion applied to subtype';
+done_testing();