1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
use strict;
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use lib "t/lib";
use MooseCompat;
use warnings;
use Test::More;
use Test::Exception;
use Test::Mouse;
{
package Foo;
use Mouse::Deprecated -api_version => '1.07';
use Mouse;
has x => (
is => 'rw',
isa => 'HashRef',
coerce => 1,
);
}
with_immutable {
lives_ok { Foo->new( x => {} ) }
'Setting coerce => 1 without a coercion on the type does not cause an error in the constructor';
lives_ok { Foo->new->x( {} ) }
'Setting coerce => 1 without a coercion on the type does not cause an error when setting the attribut';
throws_ok { Foo->new( x => 42 ) }
qr/\QAttribute (x) does not pass the type constraint because/,
'Attempting to provide an invalid value to the constructor for this attr still fails';
throws_ok { Foo->new->x(42) }
qr/\QAttribute (x) does not pass the type constraint because/,
'Attempting to provide an invalid value to the accessor for this attr still fails';
}
'Foo';
done_testing;
|
