diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-11-21 19:13:01 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-11-21 19:13:01 +0000 |
commit | 0724ad8708be1f65187c03974a56fff4ff9b48c8 (patch) | |
tree | 5e69c16caf483531d344398a059e80ba3e0c7bf9 /win32 | |
parent | 27a1175bf36db67955ca3363f80694803bdcbfb2 (diff) | |
download | perl-0724ad8708be1f65187c03974a56fff4ff9b48c8.tar.gz |
Move the test for Win32's FindExt.pm to t/porting, and run it automatically.
The test was written as part of the work on migrating modules to cpan/ and
dist/, but at that time at least one of FindExt.pm and Configure was buggy with
the classification of at least one module (XS or non-XS). As that is now fixed,
move the test to t/porting, and run it routinely. This will ensure that the
Win32 code's classification of modules will remain consistent with Configure's.
Diffstat (limited to 'win32')
-rw-r--r-- | win32/FindExt.t | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/win32/FindExt.t b/win32/FindExt.t deleted file mode 100644 index d521fa9a29..0000000000 --- a/win32/FindExt.t +++ /dev/null @@ -1,43 +0,0 @@ -#!../miniperl -w - -BEGIN { - @INC = qw(../win32 ../lib); -} -use strict; - -use Test::More tests => 10; -use FindExt; -use Config; - -FindExt::scan_ext('../cpan'); -FindExt::scan_ext('../ext'); - -# Config.pm and FindExt.pm make different choices about what should be built -my @config_built; -my @found_built; -{ - foreach my $type (qw(static dynamic nonxs)) { - push @found_built, eval "FindExt::${type}_ext()"; - push @config_built, split ' ', $Config{"${type}_ext"}; - } -} -@config_built = sort @config_built; -@found_built = sort @found_built; - -foreach (['static_ext', - [FindExt::static_ext()], $Config{static_ext}], - ['nonxs_ext', - [FindExt::nonxs_ext()], $Config{nonxs_ext}], - ['known_extensions', - [FindExt::known_extensions()], $Config{known_extensions}], - ['"config" dynamic + static + nonxs', - \@config_built, $Config{extensions}], - ['"found" dynamic + static + nonxs', - \@found_built, join " ", FindExt::extensions()], - ) { - my ($type, $found, $config) = @$_; - my @config = sort split ' ', $config; - is (scalar @$found, scalar @config, - "We find the same number of $type"); - is_deeply($found, \@config, "We find the same"); -} |