view release on metacpan or  search on metacpan

t/03_types.t  view on Meta::CPAN

BEGIN { $| = 1; print "1..87\n"; }
use utf8;
use Cpanel::JSON::XS;

our $test;
sub ok($;$) {
  print $_[0] ? "" : "not ", "ok ", ++$test;
  print @_ > 1 ? " # $_[1]\n" : "\n";
}
ok (!defined Cpanel::JSON::XS->new->allow_nonref->decode ('null'));
my $null   = Cpanel::JSON::XS->new->allow_nonref->decode ('null');
my $true   = Cpanel::JSON::XS->new->allow_nonref->decode ('true');
my $false  = Cpanel::JSON::XS->new->allow_nonref->decode ('false');

ok ($true == 1, sprintf("true: numified %d", 0+$true));
ok ($false == 0, sprintf("false: numified %d", 0+$false));