use Test::More;
use JSON::Syck qw(DumpInto Dump);
plan tests => 7;
sub same {
my ($data) = @_;
my $buf;
DumpInto( \$buf, $data );
is( $buf, Dump($data) );
}
same(42); # 1
same( \42 ); # 2
same(undef); # 3
same( { foo => [qw<bar baz>] } ); # 4
{
my $buf;
DumpInto( \$buf, 1 );
is( $buf, Dump(1) ); # 5
DumpInto( \$buf, 2 );
is( $buf, ( Dump(1) . Dump(2) ) ); # 6
}
{
my $buf = "HEWWO ";
DumpInto( \$buf, 42 );
is( $buf, ( "HEWWO " . Dump(42) ) ); # 7
}