%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /root/.cpanm/work/1590825950.14464/YAML-Syck-1.32/t/
Upload File :
Create Path :
Current File : //root/.cpanm/work/1590825950.14464/YAML-Syck-1.32/t/yaml-dumpinto.t

use Test::More;
use YAML::Syck qw(DumpInto);

plan tests => 8;

{
    my $buf;
    DumpInto( \$buf, 42 );
    is( $buf, "--- 42\n" );    # 1
}

{
    my $buf;
    DumpInto( \$buf, \42 );
    is( $buf, "--- !!perl/ref \n=: 42\n" );
}

{
    my $buf;
    DumpInto( \$buf, undef );
    is( $buf, "--- ~\n" );     # 3
}

{
    my $buf;
    DumpInto( \$buf, { foo => [qw<bar baz>] } );
    is( $buf, "--- \nfoo: \n  - bar\n  - baz\n" );    # 4
}

{
    my $buf;
    DumpInto( \$buf, 1, 2, undef, 3 );
    is( $buf, "--- 1\n--- 2\n--- ~\n--- 3\n" );       # 5
}

{
    my $buf;
    DumpInto( \$buf, 1 );
    is( $buf, "--- 1\n" );                            # 6
    DumpInto( \$buf, 2 );
    is( $buf, "--- 1\n--- 2\n" );                     # 7
}

{
    my $buf = "HEWWO\n";
    DumpInto( \$buf, 42 );
    is( $buf, "HEWWO\n--- 42\n" );                    # 8
}

Zerion Mini Shell 1.0