json-null.t   [plain text]

use strict;
use t::TestYAML ();
use Test::More tests => 2;

use JSON::Syck;

my $dat = JSON::Syck::Dump({ foo => undef });
like $dat, qr/null/;

$dat = JSON::Syck::Dump({ foo => !1 });
unlike $dat, qr/"foo":}/;