use strict;
use Test::More ( tests => 2 );
use utf8;

BEGIN
{
    use_ok("WebService::Simple");
}


{
    my $service = WebService::Simple->new(
        base_url => "http://example.com/api",
    );

    is(
        "?param=%E7%8C%AB",
        $service->request_url( params => { param => "猫" }, ),
        "param is uri escaped",
    );
}