191f110e0Safresh1use strict; 26fb12b70Safresh1use warnings; 391f110e0Safresh1use File::Spec; 491f110e0Safresh1use Test::More; 591f110e0Safresh1 691f110e0Safresh1use Module::Metadata; 791f110e0Safresh1 891f110e0Safresh1if ("$]" < 5.008_003) { 991f110e0Safresh1 plan skip_all => 'Encoding test needs at least perl 5.8.3'; 1091f110e0Safresh1} 1191f110e0Safresh1 1291f110e0Safresh1my %versions = ( 1391f110e0Safresh1 UTF8 => 3, 1491f110e0Safresh1 UTF16BE => 4, 1591f110e0Safresh1 UTF16LE => 5, 1691f110e0Safresh1); 1791f110e0Safresh1 1891f110e0Safresh1plan tests => 4 * scalar(keys %versions); 1991f110e0Safresh1 2091f110e0Safresh1for my $enc (sort keys %versions) { 2191f110e0Safresh1 my $pkg = "BOMTest::$enc"; 2291f110e0Safresh1 my $vers = $versions{$enc}; 23*b8851fccSafresh1 my $pm = File::Spec->catfile(qw<corpus BOMTest> => "$enc.pm"); 2491f110e0Safresh1 my $info = Module::Metadata->new_from_file($pm); 2591f110e0Safresh1 is( $info->name, $pkg, "$enc: default package was found" ); 2691f110e0Safresh1 is( $info->version, $vers, "$enc: version for default package" ); 2791f110e0Safresh1 is( $info->version('Heart'), '1', 'version for ASCII package' ); 2891f110e0Safresh1 is( $info->version("C\x{153}ur"), '2', 'version for Unicode package' ); 2991f110e0Safresh1} 30