summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2009-07-23 14:36:28 +0200
committerfranck cuny <franck@lumberjaph.net>2009-07-23 14:36:28 +0200
commit706b219693f98fc67dab1023e1ec4bb6aeaf97a7 (patch)
tree67aa4c79f5ab6c3a1317c3d5b3f68f9eba5e7491 /t
parentadd timeout, and headers (diff)
downloadmoosex-useragent-706b219693f98fc67dab1023e1ec4bb6aeaf97a7.tar.gz
fix testsmaster
Diffstat (limited to '')
-rw-r--r--t/tests/Test/MooseX/UserAgent.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/t/tests/Test/MooseX/UserAgent.pm b/t/tests/Test/MooseX/UserAgent.pm
index bc20b65..6b8a848 100644
--- a/t/tests/Test/MooseX/UserAgent.pm
+++ b/t/tests/Test/MooseX/UserAgent.pm
@@ -128,11 +128,11 @@ sub get_content : Tests(12) {
}
}
-sub test_cache : Tests(6) {
+sub test_cache : Tests(9) {
my $test = shift;
my $url = 'http://en.wikipedia.org';
- my $obj = Test::UserAgent->new(
+ ok my $obj = Test::UserAgent->new(
useragent_conf => { cache => { use_cache => 1 } },
ua_cache => $test->cache
),
@@ -141,7 +141,7 @@ sub test_cache : Tests(6) {
my $res = $obj->fetch($url);
cmp_ok $res->code, "<", 300, "... fetch is a success";
- $obj = Test::UserAgent::Async->new(
+ ok $obj = Test::UserAgent::Async->new(
useragent_conf => { cache => { use_cache => 1 } },
ua_cache => $test->cache
),
@@ -150,7 +150,7 @@ sub test_cache : Tests(6) {
$res = $obj->fetch($url);
is $res->code, 304, '... already in cache';
- $obj = Test::UserAgent::Paranoid->new(
+ ok $obj = Test::UserAgent::Paranoid->new(
useragent_conf => { cache => { use_cache => 1 } },
ua_cache => $test->cache
),