#!perl -wT

use warnings;
use strict;

use Test::More tests => 4;

use_ok("RPC::JSON");
my $jsonrpc1 = RPC::JSON->new(
    "http://rpc-json-test.theantipop.org/json.smd" );
ok($jsonrpc1, "Creating RPC::JSON object with SMD URI");

my $jsonrpc2 = RPC::JSON->new(
    smd => "http://rpc-json-test.theantipop.org/json.smd" );
ok($jsonrpc2, "Creating RPC::JSON object with hash");

my $jsonrpc3 = RPC::JSON->new({
    smd => "http://rpc-json-test.theantipop.org/json.smd" });
ok($jsonrpc3, "Creating RPC::JSON object with hash reference");

my $result = $jsonrpc3->Ping( { ping => 'pong' } );