4 @INC = qw(../win32 ../lib);
8 use Test::More tests => 10;
12 FindExt::scan_ext('../cpan');
13 FindExt::scan_ext('../ext');
15 # Config.pm and FindExt.pm make different choices about what should be built
19 foreach my $type (qw(static dynamic nonxs)) {
20 push @found_built, eval "FindExt::${type}_ext()";
21 push @config_built, split ' ', $Config{"${type}_ext"};
24 @config_built = sort @config_built;
25 @found_built = sort @found_built;
27 foreach (['static_ext',
28 [FindExt::static_ext()], $Config{static_ext}],
30 [FindExt::nonxs_ext()], $Config{nonxs_ext}],
32 [FindExt::known_extensions()], $Config{known_extensions}],
33 ['"config" dynamic + static + nonxs',
34 \@config_built, $Config{extensions}],
35 ['"found" dynamic + static + nonxs',
36 \@found_built, join " ", FindExt::extensions()],
38 my ($type, $found, $config) = @$_;
39 my @config = sort split ' ', $config;
40 is (scalar @$found, scalar @config,
41 "We find the same number of $type");
42 is_deeply($found, \@config, "We find the same");