Added more unit tests to check when JSONStream should fail.

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
(cherry picked from commit 5f0f2e297a7d7e51dc7503493025c14d39944757)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>

diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t
index e18f792..448113c 100755 (executable)
--- a/t/Output_JSONStream.t
+++ b/t/Output_JSONStream.t
@@ -20,3 +20,11 @@ $json->param( stuff => ['realia'] );
 is($json->output,'{"issues":["yes!","please","no"],"stuff":["realia"]}',"Making sure JSON output has added more params correctly.");
 $json->param( stuff => ['fun','love'] );
 is($json->output,'{"issues":["yes!","please","no"],"stuff":["fun","love"]}',"Making sure JSON output can obverwrite params.");
+
+eval{$json->param( die )};
+ok($@,'Dies');
+
+eval{$json->param( die => ['yes','sure','now'])};
+ok(!$@,'Dosent die.');
+eval{$json->param( die => ['yes','sure','now'], die2 =>)};
+ok($@,'Dies.');