summary refs log tree commit diff
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
parentadd timeout, and headers (diff)
downloadmoosex-useragent-706b219693f98fc67dab1023e1ec4bb6aeaf97a7.tar.gz
fix tests master
-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
         ),