summary refs log tree commit diff
path: root/t/spore-middleware
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-10-19 21:59:07 +0200
committerfranck cuny <franck@lumberjaph.net>2010-10-19 22:02:33 +0200
commitaa41217a463e1bc0ba21bb3e4c8b36e87bfad99a (patch)
tree0fe6374e6c076f6a0fb29a22aa735f8acdff7b72 /t/spore-middleware
parentupdate tests to use the dummy api, and replace api_base_url with base_url (diff)
downloadnet-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.t27
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 ';
+}