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
|
use strict;
use warnings;
use Test::More;
# FILENAME: deprecate_path_class.t
# CREATED: 03/01/14 02:01:07 by Kent Fredric (kentnl) <kentfredric@gmail.com>
# ABSTRACT: Test for warnings about deprecated Path::Class
for my $package ( 'Path::Class', 'Capture::Tiny' ) {
if ( not eval "require $package;1" ) {
plan skip_all => "$package required for this test";
done_testing;
exit;
}
}
pass('Test requirements available');
my $err = Capture::Tiny::capture_stderr(
sub {
eval '
package Foo;
use File::ShareDir::ProjectDistDir q[:all], pathclass => 1;
';
}
);
like( $err, qr/Path::Class support depecated/, "Deprecated support" );
done_testing;
|
