diff options
Diffstat (limited to 't/spore-middleware/useragent.t')
-rw-r--r-- | t/spore-middleware/useragent.t | 9 |
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; |