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

   1 use Test::More;
   2
   3 BEGIN { plan tests => 26 };
   4
   5 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
   6 use JSON;
   7
   8 SKIP: {
   9     skip "can't use JSON::XS.", 26, unless( JSON->backend->is_xs );
  10
  11 is(to_json([JSON::true]),  q|[true]|);
  12 is(to_json([JSON::false]), q|[false]|);
  13 is(to_json([JSON::null]),  q|[null]|);
  14
  15 my $jsontext = q|[true,false,null]|;
  16 my $obj      = from_json($jsontext);
  17
  18 isa_ok($obj->[0], 'JSON::Boolean');
  19 isa_ok($obj->[1], 'JSON::Boolean');
  20 ok(!defined $obj->[2], 'null is undef');
  21
  22 ok($obj->[0] == 1);
  23 ok($obj->[0] != 0);
  24 ok($obj->[1] == 0);
  25 ok($obj->[1] != 1);
  26
  27 ok($obj->[0] eq 'true', 'eq true');
  28 ok($obj->[0] ne 'false', 'ne false');
  29 ok($obj->[1] eq 'false', 'eq false');
  30 ok($obj->[1] ne 'true', 'ne true');
  31
  32 ok($obj->[0] eq $obj->[0]);
  33 ok($obj->[0] ne $obj->[1]);
  34
  35 ok(JSON::true  eq 'true');
  36 ok(JSON::true  ne 'false');
  37 ok(JSON::true  ne 'null');
  38 ok(JSON::false eq 'false');
  39 ok(JSON::false ne 'true');
  40 ok(JSON::false ne 'null');
  41 ok(!defined JSON::null);
  42
  43 is(from_json('[true]' )->[0], JSON::true);
  44 is(from_json('[false]')->[0], JSON::false);
  45 is(from_json('[null]' )->[0],  JSON::null);
  46
  47 }