3 # Check that certain modules don't get loaded when other modules are used.
17 # Format: [Module-that-should-not-be-loaded => modules to test]
20 [Carp => qw [warnings Exporter]],
24 $count += @$_ - 1 for @TESTS;
28 foreach my $test (@TESTS) {
29 my ($exclude, @modules) = @$test;
31 foreach my $module (@modules) {
34 print exists \$INC {'$exclude.pm'} ? "not ok" : "ok";
36 fresh_perl_is ($prog, "ok", "", "$module does not load $exclude");