Commit | Line | Data |
---|---|---|
88431378 RGS |
1 | #!./perl |
2 | # | |
3 | # Check that certain modules don't get loaded when other modules are used. | |
4 | # | |
5 | ||
6 | BEGIN { | |
7 | chdir 't' if -d 't'; | |
8 | @INC = qw(. ../lib); | |
9 | } | |
10 | ||
11 | use strict; | |
12 | use warnings; | |
13 | ||
14 | require "test.pl"; | |
15 | ||
16 | # | |
17 | # Format: [Module-that-should-not-be-loaded => modules to test] | |
18 | # | |
19 | my @TESTS = ( | |
20 | [Carp => qw [warnings Exporter]], | |
21 | ); | |
22 | ||
23 | my $count = 0; | |
24 | $count += @$_ - 1 for @TESTS; | |
25 | ||
26 | print "1..$count\n"; | |
27 | ||
28 | foreach my $test (@TESTS) { | |
29 | my ($exclude, @modules) = @$test; | |
30 | ||
31 | foreach my $module (@modules) { | |
32 | my $prog = <<" --"; | |
33 | use $module; | |
34 | print exists \$INC {'$exclude.pm'} ? "not ok" : "ok"; | |
35 | -- | |
36 | fresh_perl_is ($prog, "ok", "", "$module does not load $exclude"); | |
37 | } | |
38 | } | |
39 | ||
40 | ||
41 | __END__ |