summary refs log tree commit diff
path: root/t/spore-middleware/useragent.t
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-09-15 16:11:09 +0200
committerfranck cuny <franck@lumberjaph.net>2010-09-15 16:11:09 +0200
commit697e5f20634ba1408a41453d760d19381a519435 (patch)
tree1dc164944e4a0c86789358b932bc3a76ec64203f /t/spore-middleware/useragent.t
parentrewrite test using mocker (diff)
downloadnet-http-spore-697e5f20634ba1408a41453d760d19381a519435.tar.gz
tests use the mocker
Diffstat (limited to 't/spore-middleware/useragent.t')
-rw-r--r--t/spore-middleware/useragent.t9
1 files changed, 8 insertions, 1 deletions
diff --git a/t/spore-middleware/useragent.t b/t/spore-middleware/useragent.t
index 14dc9a6..92af94b 100644
--- a/t/spore-middleware/useragent.t
+++ b/t/spore-middleware/useragent.t
@@ -4,6 +4,13 @@ use warnings;
 use Test::More;
 use Net::HTTP::Spore;
 
+my $mock_server = {
+    '/test_spore/_all_docs' => sub {
+        my $req = shift;
+        $req->new_response( 200, [ 'Content-Type' => 'text/plain' ], 'ok');
+    },
+};
+
 ok my $client =
   Net::HTTP::Spore->new_from_spec( 't/specs/couchdb.json',
     api_base_url => 'http://localhost:5984' );
@@ -11,7 +18,7 @@ ok my $client =
 my $ua_str = 'Test::Spore middleware';
 
 $client->enable('UserAgent', useragent => $ua_str);
-$client->enable('Test::Response');
+$client->enable('Mock', tests => $mock_server);
 
 my $res = $client->get_all_documents(database => 'test_spore');
 is $res->request->header('User-Agent'), $ua_str;