1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# copied over from JSON::XS and modified to use JSON
use strict;
use warnings;
use Test::More;
BEGIN { plan tests => 10 };
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
use utf8;
use JSON;
SKIP: {
skip "no JSON::XS < 3", 5 unless eval { require JSON::XS; JSON::XS->VERSION < 3 };
my $false = JSON::XS::false();
ok (JSON::is_bool $false);
ok (++$false == 1);
ok (!JSON::is_bool $false);
ok (!JSON::is_bool "JSON::Boolean");
ok (!JSON::is_bool {}); # GH-34
}
SKIP: {
skip "no Types::Serialiser 0.01", 5 unless eval { require JSON::XS; JSON::XS->VERSION(3.00); require Types::Serialiser; Types::Serialiser->VERSION == 0.01 };
my $false = JSON::XS::false();
ok (JSON::is_bool $false);
ok (++$false == 1);
ok (!JSON::is_bool $false);
ok (!JSON::is_bool "JSON::Boolean");
ok (!JSON::is_bool {}); # GH-34
}
|
