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");
}