first tests

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1761 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perl/t/09-Utils-JSON.t b/src/perl/t/09-Utils-JSON.t
index ebdf14f..1b591cd 100644 (file)
--- a/src/perl/t/09-Utils-JSON.t
+++ b/src/perl/t/09-Utils-JSON.t
@@ -1,7 +1,18 @@
 #!perl -T
 
-use Test::More tests => 1;
+use Test::More tests => 6;
+
+use OpenSRF::Utils::JSON;
+
+# do we have a JSON::XS object?
+is (ref $OpenSRF::Utils::JSON::parser,   'JSON::XS');
+
+# make sure the class and payload keys are as expected
+is ($OpenSRF::Utils::JSON::JSON_CLASS_KEY,   '__c');
+is ($OpenSRF::Utils::JSON::JSON_PAYLOAD_KEY, '__p');
+
+# start with the simplest bits possible
+is (OpenSRF::Utils::JSON::true, 1);
+is (OpenSRF::Utils::JSON->true, 1);
+is (OpenSRF::Utils::JSON->false, 0);
 
-BEGIN {
-       use_ok( 'OpenSRF::Utils::JSON' );
-}