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 TestBridge;
use File::Temp qw(tempfile);

#--------------------------------------------------------------------------#
# This file test that the YAML.pm compatible Dump/Load/DumpFile/LoadFile
# work as documented
#--------------------------------------------------------------------------#

use CPAN::Meta::YAML;

{
    my $scalar = 'this is a string';
    my $arrayref = [ 1 .. 5 ];
    my $hashref = { alpha => 'beta', gamma => 'delta' };

my $yamldump = CPAN::Meta::YAML::Dump( $scalar, $arrayref, $hashref );
    my @yamldocsloaded = CPAN::Meta::YAML::Load($yamldump);
    cmp_deeply(
        [ @yamldocsloaded ],
        [ $scalar, $arrayref, $hashref ],
        "Functional interface: Dump to Load roundtrip works as expected"
    );
}

{
    my $scalar = 'this is a string';
    my $arrayref = [ 1 .. 5 ];
    my $hashref = { alpha => 'beta', gamma => 'delta' };

my ($fh, $filename) = tempfile;
    close $fh; # or LOCK_SH will hang

my $rv = CPAN::Meta::YAML::DumpFile(
        $filename, $scalar, $arrayref, $hashref);
    ok($rv, "DumpFile returned true value");

my @yamldocsloaded = CPAN::Meta::YAML::LoadFile($filename);
    cmp_deeply(
        [ @yamldocsloaded ],
        [ $scalar, $arrayref, $hashref ],
        "Functional interface: DumpFile to LoadFile roundtrip works as expected"
    );
}

{
    my $str = "This is not real YAML";
    my @yamldocsloaded;
    eval { @yamldocsloaded = CPAN::Meta::YAML::Load("$str\n"); };
    error_like(
        qr/CPAN::Meta::YAML failed to classify line '$str'/,
        "Correctly failed to load non-YAML string"
    );
}

done_testing;