diff options
author | franck cuny <franck@lumberjaph.net> | 2009-07-23 14:36:28 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-07-23 14:36:28 +0200 |
commit | 706b219693f98fc67dab1023e1ec4bb6aeaf97a7 (patch) | |
tree | 67aa4c79f5ab6c3a1317c3d5b3f68f9eba5e7491 | |
parent | add timeout, and headers (diff) | |
download | moosex-useragent-master.tar.gz |
fix tests master
-rw-r--r-- | t/tests/Test/MooseX/UserAgent.pm | 8 |
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 ), |