Upgrade to Parse::CPAN::Meta 1.38

[p5sagit/p5-mst-13.2.git] / lib / Parse / CPAN / Meta / t / 15_multibyte.t

#!/usr/bin/perl

# Testing of META.yml containing AVAR's name

BEGIN {
	if( $ENV{PERL_CORE} ) {
		chdir 't';
		@INC = ('../lib', 'lib');
	}
	else {
		unshift @INC, 't/lib/';
	}
}

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use File::Spec::Functions ':ALL';
use Parse::CPAN::Meta::Test;
use Test::More tests(0, 1, 4);





#####################################################################
# Testing that Perl::Smith config files work

my $sample_file = catfile( test_data_directory(), 'multibyte.yml' );
my $sample      = load_ok( 'multibyte.yml', $sample_file, 450 );

# Does the string parse to the structure
my $name      = "multibyte";
my $yaml_copy = $sample;
my @yaml      = eval { Parse::CPAN::Meta::Load( $yaml_copy ); };
is( $@, '', "$name: Parse::CPAN::Meta::Load parses without error" );
is( $yaml_copy, $sample, "$name: Parse::CPAN::Meta::Load does not modify the input string" );
SKIP: {
	skip( "Shortcutting after failure", 1 ) if $@;
	is_deeply( $yaml[0]->{build_requires}, {
		'Config'     => 0,
		'Test::More' => 0,
		'XSLoader'   => 0,
	}, 'build_requires ok' );
}

SKIP: {
	skip "no utf8 support", 1 unless Parse::CPAN::Meta::HAVE_UTF8();
	ok( utf8::is_utf8($yaml[0]->{author}), "utf8 decoded" );
}