1use Test::More;
2use strict;
3BEGIN { plan tests => 4 };
4
5use JSON::RPC::Server;
6
7my $server = JSON::RPC::Server->new;
8
9isa_ok($server, 'JSON::RPC::Server');
10
11isa_ok($server->json, 'JSON');
12
13my $test = JSON::RPC::Server::Test->new;
14
15isa_ok($test, 'JSON::RPC::Server');
16
17isa_ok($test->json, 'DummyJSONCoder');
18
19
20####
21
22package JSON::RPC::Server::Test;
23
24use base qw(JSON::RPC::Server);
25
26
27sub create_json_coder {
28    bless {}, 'DummyJSONCoder';
29}
30