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
}