From 5f0f2e297a7d7e51dc7503493025c14d39944757 Mon Sep 17 00:00:00 2001 From: Zach Sim Date: Fri, 21 Jan 2011 10:46:09 +1300 Subject: [PATCH] Added more unit tests to check when JSONStream should fail. Signed-off-by: Chris Cormack --- t/Output_JSONStream.t | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t index e18f7925ac..448113ce76 100755 --- 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.'); -- 2.39.2