first tests
authorsboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Fri, 28 Aug 2009 20:31:30 +0000 (20:31 +0000)
committersboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Fri, 28 Aug 2009 20:31:30 +0000 (20:31 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1761 9efc2488-bf62-4759-914b-345cdb29e865

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

index ebdf14f..1b591cd 100644 (file)
@@ -1,7 +1,18 @@
 #!perl -T
 
 #!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' );
-}