Commit | Line | Data |
acf4d245 |
1 | use strict; |
eae6c2c4 |
2 | use warnings FATAL => 'all'; |
acf4d245 |
3 | |
4 | use Test::More; |
5 | |
6 | # Test for a warning when you make the stupid mistake I make all the time |
7 | # of saying use MooseX::Types::Common qw/NonEmptySimpleStr/; |
8 | |
9 | BEGIN { |
10 | eval { require Capture::Tiny } |
11 | or plan skip_all => 'Capture::Tiny needed for these tests'; |
12 | } |
13 | |
14 | plan tests => 4; |
15 | |
16 | use_ok 'MooseX::Types::Common'; |
17 | |
18 | my ($stdout, $stderr) = Capture::Tiny::capture(sub { |
19 | MooseX::Types::Common->import; |
20 | }); |
21 | is $stderr, '', 'No warning if nothing imported'; |
22 | |
23 | ($stdout, $stderr) = Capture::Tiny::capture(sub { |
24 | MooseX::Types::Common->import('NonEmptySimpleStr'); |
25 | }); |
26 | like $stderr, qr/Did you mean/, 'Got warning'; |
27 | like $stderr, qr/NonEmptySimpleStr/, 'Warning mentions bad type'; |
28 | |