diff options
author | franck cuny <franck@lumberjaph.net> | 2010-11-01 09:36:31 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-11-01 09:36:31 +0100 |
commit | 730f149906a80efcf2a662450ee522af740a0cc9 (patch) | |
tree | 4d776f9b7da3301310a4302dfbebf28c5fc38673 /t/spore-middleware | |
parent | fix method name (diff) | |
parent | add headers (diff) | |
download | net-http-spore-730f149906a80efcf2a662450ee522af740a0cc9.tar.gz |
merge
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..fe239f9 --- /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'; +} |