[p5sagit/Module-Metadata.git] / t / encoding.t

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