diff options
author | franck cuny <franck@lumberjaph.net> | 2010-11-24 12:01:02 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-11-24 12:01:02 +0100 |
commit | e53d74d8cdc793874f432748e1ccedc5ab3144e4 (patch) | |
tree | f721ddf142f053acf899475d1bdd7ce3f1bb6375 /t/spore-request | |
parent | stringify body to a usefull message (diff) | |
download | net-http-spore-e53d74d8cdc793874f432748e1ccedc5ab3144e4.tar.gz |
update tests
Diffstat (limited to 't/spore-request')
-rw-r--r-- | t/spore-request/exception.t | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/t/spore-request/exception.t b/t/spore-request/exception.t index fdf51cb..1173e84 100644 --- a/t/spore-request/exception.t +++ b/t/spore-request/exception.t @@ -1,6 +1,7 @@ use strict; use warnings; +use Try::Tiny; use Test::More; use Net::HTTP::Spore; @@ -13,12 +14,20 @@ my $mock_server = { ok my $client = Net::HTTP::Spore->new_from_spec( 't/specs/api.json', - base_url => 'http://localhost' ); + base_url => 'http://localhost' ), "client created"; $client->enable( 'Mock', tests => $mock_server ); -my $res = $client->get_info(); -is $res->[0], 599; -like $res->[2]->{error}, qr/Died/; +my $res; + +try { + $res = $client->get_info(); +} +catch { + $res = $_; + like $res, qr/status: 599/, "stringify ok"; + is $res->[0], 599, "status ok (as arrayref)"; + like $res->[2]->{error}, qr/Died/, "body ok (as arrayref)"; +}; done_testing; |