mirror of
https://github.com/Perl/perl5.git
synced 2026-01-27 09:55:18 +00:00
ce054fc59d
1.000035 2019-04-18 02:43:11Z - quieten noisy tests (issue #31) 1.000034 2018-07-19 20:26:18Z (TRIAL RELEASE) - fix how relative paths are absolutized, so they work properly on MSWin32 (Christian Walde, PR#24)
30 lines
767 B
Perl
30 lines
767 B
Perl
use strict;
|
|
use warnings;
|
|
use File::Spec;
|
|
use Test::More;
|
|
|
|
use Module::Metadata;
|
|
|
|
if ("$]" < 5.008_003) {
|
|
plan skip_all => 'Encoding test needs at least perl 5.8.3';
|
|
}
|
|
|
|
my %versions = (
|
|
UTF8 => 3,
|
|
UTF16BE => 4,
|
|
UTF16LE => 5,
|
|
);
|
|
|
|
plan tests => 4 * scalar(keys %versions);
|
|
|
|
for my $enc (sort keys %versions) {
|
|
my $pkg = "BOMTest::$enc";
|
|
my $vers = $versions{$enc};
|
|
my $pm = File::Spec->catfile(qw<corpus BOMTest> => "$enc.pm");
|
|
my $info = Module::Metadata->new_from_file($pm);
|
|
is( $info->name, $pkg, "$enc: default package was found" );
|
|
is( $info->version, $vers, "$enc: version for default package" );
|
|
is( $info->version('Heart'), '1', 'version for ASCII package' );
|
|
is( $info->version("C\x{153}ur"), '2', 'version for Unicode package' );
|
|
}
|