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} = 0; }
11
12use JSON;
13
14my $json = new JSON;
15
16
17is($json->encode([!1]),   '[""]');
18is($json->encode([!!2]), '["1"]');
19
20is($json->encode([ 'a' eq 'b'  ]), '[""]');
21is($json->encode([ 'a' eq 'a'  ]), '["1"]');
22
23is($json->encode([ ('a' eq 'b') + 1  ]), '[1]');
24is($json->encode([ ('a' eq 'a') + 1  ]), '[2]');
25
26ok(JSON::true eq 'true');
27ok(JSON::true eq  '1');
28ok(JSON::true == 1);
29isa_ok(JSON::true, JSON->backend . '::Boolean');
30isa_ok(JSON::true, 'JSON::Boolean');
31
32
33
34