forked from nothingmuch/json-rpc-common
-
Notifications
You must be signed in to change notification settings - Fork 5
/
request_2_0.t
111 lines (77 loc) · 2.78 KB
/
request_2_0.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
#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';
use JSON::RPC::Common::Procedure::Call;
{
my $req_data = {
jsonrpc => "2.0",
method => "hello",
id => "foo",
params => { foo => "bar" },
};
my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
is_deeply( $req_obj->deflate, $req_data, "round trip through deflate" );
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
is( $req_obj->version, "2.0", "version" );
ok( $req_obj->has_id, "has_id" );
is( $req_obj->id, "foo", "id value" );
ok( !$req_obj->is_notification, "not a notification" );
ok( !$req_obj->is_service, "not a service req" );
is_deeply( $req_obj->params, { foo => "bar" }, "params" );
is_deeply( [ $req_obj->params_list ], [ qw(foo bar) ], "params_list" );
my $res_hash = $req_obj->return_result({ foo => "bar" });
isa_ok( $res_hash, "JSON::RPC::Common::Procedure::Return" );
isa_ok( $res_hash, "JSON::RPC::Common::Procedure::Return::Version_2_0" );
is_deeply( $res_hash->deflate, { result => { foo => "bar" }, id => "foo", jsonrpc => "2.0" }, "hash result" );
is_deeply( $req_obj->return_result( 1 .. 3 )->deflate, { result => [ 1 .. 3 ], id => "foo", jsonrpc => "2.0" }, "list result" );
}
{
my $req_data = {
jsonrpc => "2.0",
method => "hello",
id => undef,
params => { foo => "bar" },
};
my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
is( $req_obj->version, "2.0", "version" );
ok( $req_obj->has_id, "has_id" );
ok( !$req_obj->is_notification, "not a notification" );
}
{
my $req_data = {
jsonrpc => "2.0",
method => "hello",
params => { foo => "bar" },
};
my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
is( $req_obj->version, "2.0", "version" );
ok( !$req_obj->has_id, "not has_id" );
ok( $req_obj->is_notification, "no id means notification" );
}
{
my $req_data = {
jsonrpc => "2.0",
method => "hello",
id => "foo",
params => { foo => "bar" },
};
my $req_obj = JSON::RPC::Common::Message->inflate($req_data);
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
}
{
my $req_data = {
jsonrpc => "2.0",
id => "foo",
result => { foo => "bar" },
};
my $req_obj = JSON::RPC::Common::Message->inflate($req_data);
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Return" );
isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Return::Version_2_0" );
}