summaryrefslogtreecommitdiff
path: root/t/spore-middleware
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-11-24 12:01:02 +0100
committerfranck cuny <franck@lumberjaph.net>2010-11-24 12:01:02 +0100
commite53d74d8cdc793874f432748e1ccedc5ab3144e4 (patch)
treef721ddf142f053acf899475d1bdd7ce3f1bb6375 /t/spore-middleware
parentstringify body to a usefull message (diff)
downloadnet-http-spore-e53d74d8cdc793874f432748e1ccedc5ab3144e4.tar.gz
update tests
Diffstat (limited to '')
-rw-r--r--t/spore-middleware/auth-basic.t11
1 files changed, 8 insertions, 3 deletions
diff --git a/t/spore-middleware/auth-basic.t b/t/spore-middleware/auth-basic.t
index a6c5ac7..cc5ee3e 100644
--- a/t/spore-middleware/auth-basic.t
+++ b/t/spore-middleware/auth-basic.t
@@ -4,6 +4,7 @@ use warnings;
use Test::More;
use MIME::Base64;
+use Try::Tiny;
use Net::HTTP::Spore;
my $username = 'franck';
@@ -44,11 +45,15 @@ foreach my $test (@tests) {
't/specs/api.json', base_url => 'http://localhost/'
),
'client created';
+
foreach ( @{ $test->{middlewares} } ) {
$client->enable(@$_);
}
- my $res = $client->get_info();
- is $res->[0], $test->{expected}->{status}, 'valid HTTP status';
- is $res->[2], $test->{expected}->{body}, 'valid HTTP body';
+ my $res;
+
+ try { $res = $client->get_info(); } catch { $res = $_ };
+
+ is $res->status, $test->{expected}->{status}, 'valid HTTP status';
+ is $res->body, $test->{expected}->{body}, 'valid HTTP body';
}