X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=t%2FOutput_JSONStream.t;h=1d0cf35646282c2a656e414227696d161ce11722;hb=046c996c2fa8150b8c6a037976c9c22826e04b8b;hp=2ee22fe9c353756a12f1ad4c88829fc92f0b5818;hpb=84d7a0e3ef830a0b55ca2685ea163a068f2d5979;p=koha.git

diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t
index 2ee22fe9c3..1d0cf35646 100755
--- a/t/Output_JSONStream.t
+++ b/t/Output_JSONStream.t
@@ -6,9 +6,25 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 8;
 
 BEGIN {
         use_ok('C4::Output::JSONStream');
 }
 
+my $json = new C4::Output::JSONStream;
+is($json->output,'{}',"Making sure JSON output is blank just after its created.");
+$json->param( issues => [ 'yes!', 'please', 'no' ] );
+is($json->output,'{"issues":["yes!","please","no"]}',"Making sure JSON output has added what we told it to.");
+$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.');