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
|
#!/usr/bin/perl
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use File::Spec::Functions ':ALL';
use t::lib::Test;
use Test::More tests(0, 1, 4);
use YAML::Tiny;
#####################################################################
# Testing that Perl::Smith config files work
my $sample_file = catfile( 't', 'data', 'utf_16_le_bom.yml' );
my $sample = load_ok( 'utf_16_le_bom.yml', $sample_file, 3 );
# Does the string parse to the structure
my $name = "utf-16";
my $yaml_copy = $sample;
my $yaml = eval { YAML::Tiny->read_string( $yaml_copy ); };
is( $@, '', "$name: YAML::Tiny parses without error" );
is( $yaml_copy, $sample, "$name: YAML::Tiny does not modify the input string" );
SKIP: {
skip( "Shortcutting after failure", 2 ) if $@;
is( $yaml, undef, "file not parsed" );
is( YAML::Tiny->errstr, "Stream has a non UTF-8 BOM", "correct error" );
}
|
