Set default static inline for Netware/config.wc.
[perl.git] / win32 / FindExt.t
1 #!../miniperl -w
2
3 BEGIN {
4     @INC = qw(../win32 ../lib);
5 }
6 use strict;
7
8 use Test::More tests => 10;
9 use FindExt;
10 use Config;
11
12 FindExt::scan_ext('../cpan');
13 FindExt::scan_ext('../ext');
14
15 # Config.pm and FindExt.pm make different choices about what should be built
16 my @config_built;
17 my @found_built;
18 {
19     foreach my $type (qw(static dynamic nonxs)) {
20         push @found_built, eval "FindExt::${type}_ext()";
21         push @config_built, split ' ', $Config{"${type}_ext"};
22     }
23 }
24 @config_built = sort @config_built;
25 @found_built = sort @found_built;
26
27 foreach (['static_ext',
28           [FindExt::static_ext()], $Config{static_ext}],
29          ['nonxs_ext',
30           [FindExt::nonxs_ext()], $Config{nonxs_ext}],
31          ['known_extensions',
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()],
37         ) {
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");
43 }