From: sboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 28 Aug 2009 20:31:30 +0000 (+0000)
Subject: first tests
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=89dac5a5585df8b4de85cb174d36a75dfabacb3e;p=opensrf%2Fbjwebb.git

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
--- 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' );
-}