src/third_party/JSON/JSON-2.59/t/xe02_bool.t

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