Bug 8798: DBIx::Class base classes for all Koha tables

[koha.git] / t / Output_JSONStream.t

diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t
index e18f792..1d0cf35 100755 (executable)
--- a/t/Output_JSONStream.t
+++ b/t/Output_JSONStream.t
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More tests => 8;
 
 BEGIN {
         use_ok('C4::Output::JSONStream');
@@ -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.');