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

18 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
20 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
21 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_1_1" );
23 	is_deeply( $req_obj->deflate, $req_data, "round trip through deflate" );
25 	is( $req_obj->version, "1.1", "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 	my $res = $req_obj->return_result("moose");
50 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
52 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
53 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_1_1" );
55 	is( $req_obj->version, "1.1", "version" );
57 	ok( $req_obj->has_id, "has_id" );
59 	ok( !$req_obj->is_notification, "not a notification" );
69 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
71 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
72 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_1_1" );
74 	is( $req_obj->version, "1.1", "version" );
76 	ok( !$req_obj->has_id, "not has_id" );
78 	ok( !$req_obj->is_notification, "no id is still not a notification" );
88 	my $req_obj = JSON::RPC::Common::Procedure::Call->inflate($req_data);
90 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call" );
91 	isa_ok( $req_obj, "JSON::RPC::Common::Procedure::Call::Version_1_1" );
93 	is_deeply( $req_obj->deflate, $req_data, "round trip through deflate" );
95 	is( $req_obj->version, "1.1", "version" );
97 	ok( $req_obj->alt_spec, "alt 1.1 detected" );