src/perl/t/09-Utils-JSON.t

   1 #!perl -T
   2
   3 use Test::More tests => 6;
   4
   5 use OpenSRF::Utils::JSON;
   6
   7 # do we have a JSON::XS object?
   8 is (ref $OpenSRF::Utils::JSON::parser,   'JSON::XS');
   9
  10 # make sure the class and payload keys are as expected
  11 is ($OpenSRF::Utils::JSON::JSON_CLASS_KEY,   '__c');
  12 is ($OpenSRF::Utils::JSON::JSON_PAYLOAD_KEY, '__p');
  13
  14 # start with the simplest bits possible
  15 is (OpenSRF::Utils::JSON::true, 1);
  16 is (OpenSRF::Utils::JSON->true, 1);
  17 is (OpenSRF::Utils::JSON->false, 0);
  18
  19 # shove some hints in