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 => 5;
  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.");