1*91f110e0Safresh1#!perl 2*91f110e0Safresh1 3*91f110e0Safresh1use strict; 4*91f110e0Safresh1use File::Spec; 5*91f110e0Safresh1use Test::More; 6*91f110e0Safresh1 7*91f110e0Safresh1use Module::Metadata; 8*91f110e0Safresh1 9*91f110e0Safresh1if ("$]" < 5.008_003) { 10*91f110e0Safresh1 plan skip_all => 'Encoding test needs at least perl 5.8.3'; 11*91f110e0Safresh1} 12*91f110e0Safresh1 13*91f110e0Safresh1my %versions = ( 14*91f110e0Safresh1 UTF8 => 3, 15*91f110e0Safresh1 UTF16BE => 4, 16*91f110e0Safresh1 UTF16LE => 5, 17*91f110e0Safresh1); 18*91f110e0Safresh1 19*91f110e0Safresh1plan tests => 4 * scalar(keys %versions); 20*91f110e0Safresh1 21*91f110e0Safresh1for my $enc (sort keys %versions) { 22*91f110e0Safresh1 my $pkg = "BOMTest::$enc"; 23*91f110e0Safresh1 my $vers = $versions{$enc}; 24*91f110e0Safresh1 my $pm = File::Spec->catfile(qw<t lib BOMTest> => "$enc.pm"); 25*91f110e0Safresh1 my $info = Module::Metadata->new_from_file($pm); 26*91f110e0Safresh1 is( $info->name, $pkg, "$enc: default package was found" ); 27*91f110e0Safresh1 is( $info->version, $vers, "$enc: version for default package" ); 28*91f110e0Safresh1 is( $info->version('Heart'), '1', 'version for ASCII package' ); 29*91f110e0Safresh1 is( $info->version("C\x{153}ur"), '2', 'version for Unicode package' ); 30*91f110e0Safresh1} 31