View | Details | Raw Unified | Return to bug 11480
Collapse All | Expand All

(-)a/t/Output_JSONStream.t (-5 / +6 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 8;
9
use Test::More tests => 10;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::Output::JSONStream');
12
        use_ok('C4::Output::JSONStream');
Lines 17-30 is($json->output,'{}',"Making sure JSON output is blank just after its created." Link Here
17
$json->param( issues => [ 'yes!', 'please', 'no' ] );
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.");
18
is($json->output,'{"issues":["yes!","please","no"]}',"Making sure JSON output has added what we told it to.");
19
$json->param( stuff => ['realia'] );
19
$json->param( stuff => ['realia'] );
20
is($json->output,'{"issues":["yes!","please","no"],"stuff":["realia"]}',"Making sure JSON output has added more params correctly.");
20
like($json->output,'/"stuff":\["realia"\]/',"Making sure JSON output has added more params correctly.");
21
like($json->output,'/"issues":\["yes!","please","no"\]/',"Making sure existing elements remain in JSON output");
21
$json->param( stuff => ['fun','love'] );
22
$json->param( stuff => ['fun','love'] );
22
is($json->output,'{"issues":["yes!","please","no"],"stuff":["fun","love"]}',"Making sure JSON output can obverwrite params.");
23
like($json->output,'/"stuff":\["fun","love"\]/',"Making sure JSON output can overwrite params.");
24
like($json->output,'/"issues":\["yes!","please","no"\]/',"Making non overwitten elements remain in JSON output");
23
25
24
eval{$json->param( die )};
26
eval{$json->param( die )};
25
ok($@,'Dies');
27
ok($@,'Dies');
26
28
27
eval{$json->param( die => ['yes','sure','now'])};
29
eval{$json->param( die => ['yes','sure','now'])};
28
ok(!$@,'Dosent die.');
30
ok(!$@,'Does not die.');
29
eval{$json->param( die => ['yes','sure','now'], die2 =>)};
31
eval{$json->param( die => ['yes','sure','now'], die2 =>)};
30
ok($@,'Dies.');
32
ok($@,'Dies.');
31
- 

Return to bug 11480