Commit | Line | Data |
3301fa54 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
e3d9dc7b |
4 | use Test::More tests => 9; |
3301fa54 |
5 | use Test::Exception; |
6 | |
7 | do { |
8 | package Class; |
9 | use Mouse; |
10 | |
11 | has tb => ( |
12 | is => 'rw', |
13 | isa => 'Test::Builder', |
14 | ); |
15 | }; |
16 | |
17 | can_ok(Class => 'tb'); |
18 | |
19 | lives_ok { |
20 | Class->new(tb => Test::Builder->new); |
21 | }; |
22 | |
23 | lives_ok { |
24 | my $class = Class->new; |
25 | $class->tb(Test::Builder->new); |
26 | isa_ok($class->tb, 'Test::Builder'); |
27 | }; |
28 | |
29 | throws_ok { |
30 | Class->new(tb => 3); |
31 | } qr/Attribute \(tb\) does not pass the type constraint because: Validation failed for 'Test::Builder' failed with value 3/; |
32 | |
33 | throws_ok { |
34 | my $class = Class->new; |
35 | $class->tb(3); |
36 | } qr/Attribute \(tb\) does not pass the type constraint because: Validation failed for 'Test::Builder' failed with value 3/; |
37 | |
38 | throws_ok { |
39 | Class->new(tb => Class->new); |
40 | } qr/Attribute \(tb\) does not pass the type constraint because: Validation failed for 'Test::Builder' failed with value Class=HASH\(\w+\)/; |
41 | |
e3d9dc7b |
42 | do { |
43 | package Other; |
44 | use Mouse; |
45 | |
46 | has oops => ( |
47 | isa => 'Int', |
48 | default => "yikes", |
49 | ); |
50 | }; |
51 | |
52 | throws_ok { |
53 | Other->new; |
54 | } qr/Attribute \(oops\) does not pass the type constraint because: Validation failed for 'Int' failed with value yikes/; |
55 | |
56 | lives_ok { |
57 | Other->new(oops => 10); |
58 | }; |
59 | |