JSON-RPC-Common-0.11/t/request_2_0.t

18 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
20 	is_deeply( $req_obj->deflate, $req_data, "round trip through deflate" );
22 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
23 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
25 	is( $req_obj->version, "2.0", "version" );
27 	ok( $req_obj->has_id, "has_id" );
28 	is( $req_obj->id, "foo", "id value" );
30 	ok( !$req_obj->is_notification, "not a notification" );
32 	ok( !$req_obj->is_service, "not a service req" );
34 	is_deeply( $req_obj->params, { foo => "bar" }, "params" );
36 	is_deeply( [ $req_obj->params_list ], [ qw(foo bar) ], "params_list" );
38 	my $res_hash = $req_obj->return_result({ foo => "bar" });
45 …is_deeply( $req_obj->return_result( 1 .. 3 )->deflate, { result => [ 1 .. 3 ], id => "foo", jsonrp…
56 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
58 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
59 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
61 	is( $req_obj->version, "2.0", "version" );
63 	ok( $req_obj->has_id, "has_id" );
65 	ok( !$req_obj->is_notification, "not a notification" );
75 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
77 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
78 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
80 	is( $req_obj->version, "2.0", "version" );
82 	ok( !$req_obj->has_id, "not has_id" );
84 	ok( $req_obj->is_notification, "no id means notification" );
95 	my $req_obj = JSON::RPC::Common::Message->inflate($req_data);
97 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
98 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_2_0" );
107 	my $req_obj = JSON::RPC::Common::Message->inflate($req_data);
109 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Return" );
110 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Return::Version_2_0" );