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
29
30
31
32
33
|
#!./perl
#
# Check that certain modules don't get loaded when other modules are used.
#
BEGIN {
chdir 't' if -d 't';
@INC = qw(. ../lib);
}
use strict;
use warnings;
require "test.pl";
#
# Format: [Module-that-should-not-be-loaded => modules to test]
#
foreach my $test ([Carp => qw(warnings Exporter)],
) {
my ($exclude, @modules) = @$test;
foreach my $module (@modules) {
my $prog = <<" --";
use $module;
print exists \$INC {'$exclude.pm'} ? "not ok" : "ok";
--
fresh_perl_is ($prog, "ok", {}, "$module does not load $exclude");
}
}
done_testing();
|