use Test::More tests => 4;

BEGIN {
    use_ok( 'JavaScript::RPC::Server::CGI' )
};

use strict;
use warnings;

my $server = JavaScript::RPC::Server::CGI->new;

isa_ok( $server, 'JavaScript::RPC::Server::CGI' );
is_deeply(
    { $server->env },
    {
        method  => undef,
        uid     => undef,
        context => undef,
        params  => []
    }
);

my $query = CGI->new( {
    C  => 'jsrs6',
    F  => 'add',
    P0 => '[1]',
    P1 => '[2]',
    U  => '1092142818812'
} );

$server->query( $query );

is_deeply(
    { $server->env },
    {
        method  => 'add',
        uid     => '1092142818812',
        context => 'jsrs6',
        params  => [ 1, 2 ]
    }
);