t/Output_JSONStream.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 8;
  10
  11 BEGIN {
  12         use_ok('C4::Output::JSONStream');
  13 }
  14
  15 my $json = new C4::Output::JSONStream;
  16 is($json->output,'{}',"Making sure JSON output is blank just after its created.");
  17 $json->param( issues => [ 'yes!', 'please', 'no' ] );
  18 is($json->output,'{"issues":["yes!","please","no"]}',"Making sure JSON output has added what we told it to.");
  19 $json->param( stuff => ['realia'] );
  20 is($json->output,'{"issues":["yes!","please","no"],"stuff":["realia"]}',"Making sure JSON output has added more params correctly.");
  21 $json->param( stuff => ['fun','love'] );
  22 is($json->output,'{"issues":["yes!","please","no"],"stuff":["fun","love"]}',"Making sure JSON output can obverwrite params.");
  23
  24 eval{$json->param( die )};
  25 ok($@,'Dies');
  26
  27 eval{$json->param( die => ['yes','sure','now'])};
  28 ok(!$@,'Dosent die.');
  29 eval{$json->param( die => ['yes','sure','now'], die2 =>)};
  30 ok($@,'Dies.');