1#!/usr/bin/perl -w
2
3use strict;
4
5use Test::More;
6use strict;
7
8BEGIN { plan tests => 11 };
9
10BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
11
12use JSON;
13
14SKIP: {
15    skip "can't use JSON::XS.", 11, unless( JSON->backend->is_xs );
16
17my $json = new JSON;
18
19is($json->encode([!1]),   '[""]');
20is($json->encode([!!2]), '["1"]');
21
22is($json->encode([ 'a' eq 'b'  ]), '[""]');
23is($json->encode([ 'a' eq 'a'  ]), '["1"]');
24
25is($json->encode([ ('a' eq 'b') + 1  ]), '[1]');
26is($json->encode([ ('a' eq 'a') + 1  ]), '[2]');
27
28ok(JSON::true eq 'true');
29ok(JSON::true eq  '1');
30ok(JSON::true == 1);
31isa_ok(JSON::true, JSON->backend . '::Boolean');
32isa_ok(JSON::true, 'JSON::Boolean');
33
34}
35