Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
data	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
tml-local	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
tml-spec	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
tml-world	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
01_api.t	1.52 KB	-r--r--r--	2014-12-27 11:48
01_compile.t	363 B	-r--r--r--	2014-12-27 11:48
10_read.t	3.35 KB	-r--r--r--	2014-12-27 11:48
11_read_string.t	1.63 KB	-r--r--r--	2014-12-27 11:48
12_write.t	2.72 KB	-r--r--r--	2014-12-27 11:48
13_write_string.t	642 B	-r--r--r--	2014-12-27 11:48
20_subclass.t	1005 B	-r--r--r--	2014-12-27 11:48
21_yamlpm_compat.t	1.64 KB	-r--r--r--	2014-12-27 11:48
30_yaml_spec_tml.t	929 B	-r--r--r--	2014-12-27 11:48
31_local_tml.t	482 B	-r--r--r--	2014-12-27 11:48
32_world_tml.t	186 B	-r--r--r--	2014-12-27 11:48
README.md	6.15 KB	-r--r--r--	2014-12-27 11:48
tml	3.3 KB	-r-xr-xr-x	2014-12-27 11:48

Rename

use strict;
use warnings;
use lib 't/lib/';
use Test::More 0.99;
use TestUtils;
use TestBridge;

use CPAN::Meta::YAML ();

#--------------------------------------------------------------------------#
# Generally, read_string can be tested with .tml files in t/tml-local/*
#
# This file is for error tests that can't be easily tested via .tml
#--------------------------------------------------------------------------#

subtest 'read_string without arg' => sub {
    eval { CPAN::Meta::YAML->read_string(); };
    error_like(qr/Did not provide a string to load/,
        "Got expected error: no string provided to read_string()"
    );
};

subtest 'YAML without newline' => sub {
    my $str = join("\n" => ('---', '- foo', '---', '- bar', '---'));
    my $obj = eval { CPAN::Meta::YAML->read_string($str); };
    is( $@, '', "YAML without newline is OK");
};

subtest 'read_string as object method' => sub {
    ok( my $obj = CPAN::Meta::YAML->new( { foo => 'bar' } ), "new YAML object" );
    ok( my $obj2 = $obj->read_string( "---\nfoo: bar\n"  ),
        "read_string object method"
    );
    isnt( $obj, $obj2, "objects are different" );
    cmp_deeply( $obj, $obj2, "objects have same content" );
};

subtest 'invalid UTF-8' => sub {
    # get invalid UTF-8 by reading Latin-1 with lax :utf8 layer
    my $string = do {
        local $SIG{__WARN__} = sub {};
        slurp( test_data_file('latin1.yml'), ":utf8" );
    };
    my $obj = eval { CPAN::Meta::YAML->read_string($string); };
    is( $obj, undef, "read_string should return undef" );
    error_like( qr/invalid UTF-8 string/,
        "Got expected error about invalid UTF-8 string"
    );
};

done_testing;