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