|
Packit |
6539e1 |
#!perl
|
|
Packit |
6539e1 |
|
|
Packit |
6539e1 |
use strict;
|
|
Packit |
6539e1 |
use warnings;
|
|
Packit |
6539e1 |
use File::Spec;
|
|
Packit |
6539e1 |
use Test::More;
|
|
Packit |
6539e1 |
|
|
Packit |
6539e1 |
use Module::Metadata;
|
|
Packit |
6539e1 |
|
|
Packit |
6539e1 |
if ("$]" < 5.008_003) {
|
|
Packit |
6539e1 |
plan skip_all => 'Encoding test needs at least perl 5.8.3';
|
|
Packit |
6539e1 |
}
|
|
Packit |
6539e1 |
|
|
Packit |
6539e1 |
my %versions = (
|
|
Packit |
6539e1 |
UTF8 => 3,
|
|
Packit |
6539e1 |
UTF16BE => 4,
|
|
Packit |
6539e1 |
UTF16LE => 5,
|
|
Packit |
6539e1 |
);
|
|
Packit |
6539e1 |
|
|
Packit |
6539e1 |
plan tests => 4 * scalar(keys %versions);
|
|
Packit |
6539e1 |
|
|
Packit |
6539e1 |
for my $enc (sort keys %versions) {
|
|
Packit |
6539e1 |
my $pkg = "BOMTest::$enc";
|
|
Packit |
6539e1 |
my $vers = $versions{$enc};
|
|
Packit |
6539e1 |
my $pm = File::Spec->catfile(qw<corpus BOMTest> => "$enc.pm");
|
|
Packit |
6539e1 |
my $info = Module::Metadata->new_from_file($pm);
|
|
Packit |
6539e1 |
is( $info->name, $pkg, "$enc: default package was found" );
|
|
Packit |
6539e1 |
is( $info->version, $vers, "$enc: version for default package" );
|
|
Packit |
6539e1 |
is( $info->version('Heart'), '1', 'version for ASCII package' );
|
|
Packit |
6539e1 |
is( $info->version("C\x{153}ur"), '2', 'version for Unicode package' );
|
|
Packit |
6539e1 |
}
|