CPAN Security Tip #3/3: Get help with reporting or fixing a security issue on CPAN! Learn more

NQOUNET / JSON-RPC-Spec-v1.0.3 / t / 01_basic.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132

              
use strict;
use Test::More 0.98;
use Test::Fatal;
use JSON::RPC::Spec;
use JSON::MaybeXS qw(JSON);
my $rpc;
is(exception { $rpc = JSON::RPC::Spec->new }, undef, 'new')
  or diag explain $rpc;
my $coder = JSON->new->utf8;
subtest 'method register' => sub {
    my $result;
    is(
        exception {
            $result = $rpc->register(echo => sub { $_[0] })
        },
        undef,
        'call'
    ) or diag explain $result;
    isa_ok $result, 'JSON::RPC::Spec' or diag explain $result;
};
subtest 'method parse' => sub {
    for my $content ('Hello', [1, 2], {foo => 'bar'}) {
        my $id          = time;
        my $json_string = $coder->encode(
            {
                jsonrpc => '2.0',
                id      => $id,
                method  => 'echo',
                params  => $content
            }
        );
        my $result;
        is(exception { $result = $rpc->parse($json_string); }, undef, 'call')
          or diag explain $result;
        is_deeply $coder->decode($result),
          +{
            jsonrpc => '2.0',
            id      => $id,
            result  => $content
          },
          'result'
          or diag explain $result;
    }
};
subtest 'empty string' => sub {
    my $result;
    is(exception { $result = $rpc->parse('') }, undef, 'call')
      or diag explain $result;
    is_deeply $coder->decode($result),
      +{
        jsonrpc => '2.0',
        id      => undef,
        error   => {
            code    => -32600,
            message => 'Invalid Request'
        }
      },
      'empty request'
      or diag explain $result;
};
subtest 'result is empty string' => sub {
    my $id          = time;
    my $json_string = $coder->encode(
        {
            jsonrpc => '2.0',
            id      => $id,
            method  => 'echo',
            params  => ''
        }
    );
    my $result;
    is(
        exception {
            $result = $rpc->parse($json_string)
        },
        undef,
        'call'
    ) or diag explain $result;
    is_deeply $coder->decode($result),
      +{
        jsonrpc => '2.0',
        id      => $id,
        result  => ''
      },
      'result is empty string'
      or diag explain $result;
};
subtest 'custom error' => sub {
    $rpc->register(echo_die => sub { die $_[0] });
    for my $content ("Hello\n", [1, 2], {foo => 'bar'}) {
        my $id          = time;
        my $json_string = $coder->encode(
            {
                jsonrpc => '2.0',
                id      => $id,
                method  => 'echo_die',
                params  => $content
            }
        );
        my $result;
        is(
            exception {
                $result = $rpc->parse($json_string)
            },
            undef,
            'call'
        ) or diag explain $result;
        is_deeply $coder->decode($result),
          +{
            jsonrpc => '2.0',
            id      => $id,
            error   => {
                code    => -32603,
                message => 'Internal error',
                data    => $content
            }
          },
          'result has error object'
          or diag explain $result;
    }
};
done_testing;