[perl5.git] / lib / Config / Extensions.t

#!perl -w
BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
}
use strict;
use Test::More 'no_plan';

BEGIN {use_ok 'Config::Extensions', '%Extensions'};

use Config;

my @types = qw(dynamic static nonxs);
my %types;
@types{@types} = @types;

ok (keys %Extensions, "There are some extensions");
# Check only the 3 valid keys have been used.
while (my ($key, $val) = each %Extensions) {
    my $raw_ext = $key;
    # Back to the format in Config
    $raw_ext =~ s!::!/!g;
    my $re = qr/\b\Q$raw_ext\E\b/;
    like($Config{extensions}, $re, "$key was built");
    unless ($types{$val}) {
	fail("$key is $val");
	next;
    }
    my $type = $val . '_ext';
    like($Config{$type}, $re, "$key is $type");
}
Commit	Line	Data
3c1a32f0 NC	1	#!perl -w
	2	BEGIN {
	3	if( $ENV{PERL_CORE} ) {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7	}
	8	use strict;
	9	use Test::More 'no_plan';
	10
	11	BEGIN {use_ok 'Config::Extensions', '%Extensions'};
	12
	13	use Config;
	14
	15	my @types = qw(dynamic static nonxs);
	16	my %types;
	17	@types{@types} = @types;
	18
	19	ok (keys %Extensions, "There are some extensions");
	20	# Check only the 3 valid keys have been used.
	21	while (my ($key, $val) = each %Extensions) {
	22	my $raw_ext = $key;
	23	# Back to the format in Config
	24	$raw_ext =~ s!::!/!g;
	25	my $re = qr/\b\Q$raw_ext\E\b/;
	26	like($Config{extensions}, $re, "$key was built");
	27	unless ($types{$val}) {
	28	fail("$key is $val");
	29	next;
	30	}
	31	my $type = $val . '_ext';
	32	like($Config{$type}, $re, "$key is $type");
	33	}