1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/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: {
unless ( Parse::CPAN::Meta::HAVE_UTF8() ) {
skip("no utf8 support", 1 );
}
eval { utf8::is_utf8('') };
if ( $@ ) {
skip("no is_utf8 to test with until 5.8.1", 1);
}
ok( utf8::is_utf8($yaml[0]->{author}), "utf8 decoded" );
}
|
