diff options
author | franck cuny <franck@lumberjaph.net> | 2010-10-19 21:59:07 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-10-19 22:02:33 +0200 |
commit | aa41217a463e1bc0ba21bb3e4c8b36e87bfad99a (patch) | |
tree | 0fe6374e6c076f6a0fb29a22aa735f8acdff7b72 /t/spore-middleware | |
parent | update tests to use the dummy api, and replace api_base_url with base_url (diff) | |
download | net-http-spore-aa41217a463e1bc0ba21bb3e4c8b36e87bfad99a.tar.gz |
new middlewares:
* fileupload: upload a file (will detect mime type to set appropriate headers) * paranoidagent: handle blacklist and whitelist * redirection: follows HTTP redirection (HTTP status 30*) * test for redirection
Diffstat (limited to 't/spore-middleware')
-rw-r--r-- | t/spore-middleware/redirection.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t/spore-middleware/redirection.t b/t/spore-middleware/redirection.t new file mode 100644 index 0000000..0084956 --- /dev/null +++ b/t/spore-middleware/redirection.t @@ -0,0 +1,27 @@ +use strict; +use warnings; + +use Test::More; + +plan tests => 2; + +use Net::HTTP::Spore; + +SKIP: { + skip "require RUN_HTTP_TEST", 2 unless $ENV{RUN_HTTP_TEST}; + my $client = Net::HTTP::Spore->new_from_string( + '{ + "base_url" : "http://fperrad.googlepages.com", + "name" : "googlepages", + "methods" + : { "get_home" + : { "path" : "/home", "method" : "GET", "expected_status" : [200] } } + }'); + + $client->enable(' Redirection '); + + my $r = $client->get_home(); + is $r->status, 200; + is $r->request->uri, + 'http://sites.google.com/site/fperrad/home '; +} |