summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-11-21 19:13:01 +0000
committerNicholas Clark <nick@ccl4.org>2010-11-21 19:13:01 +0000
commit0724ad8708be1f65187c03974a56fff4ff9b48c8 (patch)
tree5e69c16caf483531d344398a059e80ba3e0c7bf9 /win32
parent27a1175bf36db67955ca3363f80694803bdcbfb2 (diff)
downloadperl-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.t43
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");
-}