diff options
Diffstat (limited to 't')
-rw-r--r-- | t/01_basic.t | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/t/01_basic.t b/t/01_basic.t index 1f51db1..6ccab22 100644 --- a/t/01_basic.t +++ b/t/01_basic.t @@ -53,9 +53,9 @@ $api->api_useragent->add_handler( 'request_send' => sub { my $request = shift; is $request->method, 'POST', 'POST request'; - is $request->content, - JSON::encode_json({name => 'eris', dob => '01/02/1900'}), - 'got valid content in POST'; + my $resp = JSON::decode_json($request->content); + is $resp->{name}, 'eris', 'got valid content in JSON response'; + is $resp->{dob}, '01/02/1900', 'got valid content in JSON response'; my $res = HTTP::Response->new(201); $res->content('{"status":"ok"}'); $res; @@ -110,9 +110,12 @@ $api->api_useragent->add_handler( random_stuff => 'bar' ); is $res->code, 200, 'code as expected'; -is $res->request->uri, - 'http://exemple.com/users/unstrict.json?random_stuff=bar&name=eris&last_name=foo', - 'url is ok with no declared parameters'; +is $res->request->uri->query_param('name'), 'eris', 'url is ok with no declared parameters'; +is $res->request->uri->query_param('random_stuff'), 'bar', 'url is ok with no declared parameters'; +is $res->request->uri->query_param('last_name'), 'foo', 'url is ok with no declared parameters'; +is $res->request->uri->path, '/users/unstrict.json'; +#'http://exemple.com/users/unstrict.json?random_stuff=bar&name=eris&last_name=foo', + # params in url and body $api->api_useragent->remove_handler('request_send'); |