Make warning for default_default include info on how to shut it up
[gitmo/Moose.git] / t / 010_basics / 030_deprecations.t
1 use strict;
2 use warnings;
3
4 use Test::Exception;
5 use Test::More;
6
7 use Test::Requires {
8     'Test::Output' => '0.01',
9 };
10
11 # All tests are wrapped with lives_and because the stderr output tests will
12 # otherwise eat exceptions, and the test just dies silently.
13
14 {
15     package Role;
16
17     use Moose::Role;
18
19     sub thing { }
20 }
21
22 {
23     package Foo;
24
25     use Moose;
26
27     ::lives_and(
28         sub {
29             ::stderr_like{ has foo => (
30                     traits => ['String'],
31                     is     => 'ro',
32                     isa    => 'Str',
33                 );
34                 }
35                 qr{\QAllowing a native trait to automatically supply a default is deprecated. You can avoid this warning by supply a default, builder, or making the attribute required at t/010_basics/030_deprecations.t line},
36                 'Not providing a default for native String trait warns';
37
38             ::stderr_is{ has bar => (
39                     traits  => ['Bool'],
40                     isa     => 'Bool',
41                     default => q{},
42                 );
43                 } q{}, 'No warning when _default_is is set';
44
45             ::stderr_like{ Foo->new->bar }
46                 qr{\QThe bar method in the Foo class was automatically created by the native delegation trait for the bar attribute. This "default is" feature is deprecated. Explicitly set "is" or define accessor names to avoid this at t/010_basics/030_deprecations.t line},
47                 'calling a reader on a method created by a _default_is warns';
48
49             ::stderr_like{ with 'Role' =>
50                     { excludes => ['thing'], alias => { thing => 'thing2' } };
51                 }
52                 qr/\QThe alias and excludes options for role application have been renamed -alias and -excludes/,
53                 'passing excludes or alias with a leading dash warns';
54             ::ok(
55                 !Foo->meta->has_method('thing'),
56                 'thing method is excluded from role application'
57             );
58             ::ok(
59                 Foo->meta->has_method('thing2'),
60                 'thing2 method is created as alias in role application'
61             );
62         }
63     );
64 }
65
66 {
67     package Pack1;
68
69     use Moose;
70
71     ::lives_and(
72         sub {
73             ::stderr_is{ has foo => (
74                     traits  => ['String'],
75                     is      => 'ro',
76                     isa     => 'Str',
77                     builder => '_build_foo',
78                 );
79                 } q{},
80                 'Providing a builder for a String trait avoids default default warning';
81
82             has bar => (
83                 traits  => ['String'],
84                 reader  => '_bar',
85                 isa     => 'Str',
86                 default => q{},
87             );
88
89             ::ok(
90                 !Pack1->can('bar'),
91                 'no default is assigned when reader is provided'
92             );
93
94             ::stderr_is{ Pack1->new->_bar } q{},
95                 'Providing a reader for a String trait avoids default is warning';
96         }
97     );
98
99     sub _build_foo { q{} }
100 }
101
102 {
103     package Pack2;
104
105     use Moose;
106
107     ::lives_and(
108         sub {
109             ::stderr_is{ has foo => (
110                     traits   => ['String'],
111                     is       => 'ro',
112                     isa      => 'Str',
113                     required => 1,
114                 );
115                 } q{},
116                 'Making a String trait required avoids default default warning';
117
118             has bar => (
119                 traits  => ['String'],
120                 writer  => '_bar',
121                 isa     => 'Str',
122                 default => q{},
123             );
124
125             ::ok(
126                 !Pack2->can('bar'),
127                 'no default is assigned when writer is provided'
128             );
129
130             ::stderr_is{ Pack2->new( foo => 'x' )->_bar('x') }
131                 q{},
132                 'Providing a writer for a String trait avoids default is warning';
133         }
134     );
135 }
136
137 {
138     package Pack3;
139
140     use Moose;
141
142     ::lives_and(
143         sub {
144             ::stderr_is{ has foo => (
145                     traits     => ['String'],
146                     is         => 'ro',
147                     isa        => 'Str',
148                     lazy_build => 1,
149                 );
150                 } q{},
151                 'Making a String trait lazy_build avoids default default warning';
152
153             has bar => (
154                 traits   => ['String'],
155                 accessor => '_bar',
156                 isa      => 'Str',
157                 default  => q{},
158             );
159
160             ::ok(
161                 !Pack3->can('bar'),
162                 'no default is assigned when accessor is provided'
163             );
164
165             ::stderr_is{ Pack3->new->_bar }
166                 q{},
167                 'Providing a accessor for a String trait avoids default is warning';
168         }
169     );
170
171     sub _build_foo { q{} }
172 }
173
174 done_testing;
175