10 use Test::More tests => 10;
12 my $test_dir = File::Spec->catdir(qw(lib deprecate));
13 chdir $test_dir or die "Can't chdir $test_dir";
14 @INC = ( File::Spec->catdir( (File::Spec->updir)x3, qw(lib)) );
17 privlibexp => File::Spec->catdir(qw(lib perl)),
18 sitelibexp => File::Spec->catdir(qw(lib site)),
19 archlibexp => File::Spec->catdir(qw(lib perl arch)),
20 sitearchexp => File::Spec->catdir(qw(lib site arch)),
23 File::Path::make_path(values %libdir);
25 push @INC, @libdir{qw(archlibexp privlibexp sitearchexp sitelibexp)};
34 local %deprecate::Config = (%libdir);
36 my $module = 'Deprecated.pm';
37 for my $lib (sort keys %tests) {
38 my $dir = $libdir{$lib};
39 my $pm = File::Spec->catfile($dir, $module);
40 File::Copy::copy($module, $pm);
43 { local $SIG{__WARN__} = sub { $warn .= $_[0]; };
44 use warnings qw(deprecated);
50 like($warn, qr/^Deprecated\s+will\s+be\s+removed\b/, "$lib - message");
51 my $me = quotemeta($0);
52 like($warn, qr/$me,?\s+line\s+1001\.?\n*$/, "$lib - location");
55 ok( !$warn, "$lib - no message" );
62 my $sub_dir = 'Optionally';
63 my $opt_mod = $sub_dir .'.pm';
64 for my $lib (sort keys %tests) {
65 my $dir = File::Spec->catdir($libdir{$lib}, $sub_dir);
66 File::Path::make_path($dir);
68 my $pm = File::Spec->catfile($dir, $module);
69 File::Copy::copy($opt_mod, $pm);
72 { local $SIG{__WARN__} = sub { $warn .= $_[0]; };
73 use warnings qw(deprecated);
74 require Optionally::Deprecated;
77 like($warn, qr/^Optionally::Deprecated\s+will\s+be\s+removed\b/,
78 "$lib - use if - message");
81 ok( !$warn, "$lib - use if - no message" );
84 delete $INC{"$sub_dir/$module"};
88 END { File::Path::remove_tree('lib') }