3 use Test::More tests => 6;
5 use OpenSRF::Utils::JSON;
7 # do we have a JSON::XS object?
8 is (ref $OpenSRF::Utils::JSON::parser, 'JSON::XS');
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');
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);