In osrf_json_gateway.c: added the const qualifier to three
[OpenSRF.git] / 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