|
|
@ -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.'); |
|
|
|