diff options
author | franck cuny <franck@lumberjaph.net> | 2010-11-05 16:25:26 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-11-05 16:25:26 +0100 |
commit | fbe0876e7c8ab998a08e1eac6e7e72d92edeac10 (patch) | |
tree | 11a6fb1cddbc31134981cf8f0872f9e3cc674cab /t/spore-request | |
parent | typo (diff) | |
download | net-http-spore-fbe0876e7c8ab998a08e1eac6e7e72d92edeac10.tar.gz |
remove two methods
Diffstat (limited to 't/spore-request')
-rw-r--r-- | t/spore-request/path_info.t | 27 | ||||
-rw-r--r-- | t/spore-request/query_string.t | 25 |
2 files changed, 0 insertions, 52 deletions
diff --git a/t/spore-request/path_info.t b/t/spore-request/path_info.t deleted file mode 100644 index 17645af..0000000 --- a/t/spore-request/path_info.t +++ /dev/null @@ -1,27 +0,0 @@ -use strict; -use Test::More; - -use Net::HTTP::Spore::Request; - -my $env = { - REQUEST_METHOD => 'GET', - SERVER_NAME => 'localhost', - SERVER_PORT => '80', - SCRIPT_NAME => '', - PATH_INFO => '/:database/:key', - REQUEST_URI => '', - QUERY_STRING => '', - SERVER_PROTOCOL => 'HTTP/1.0', - 'spore.params' => [qw/database test_spore key foo/], -}; - -ok my $request = Net::HTTP::Spore::Request->new($env); - -is $request->path_info, '/test_spore/foo'; - -$env->{'spore.params'} = [qw/database test_spore key foo another key/]; -is $request->path_info, '/test_spore/foo'; - -is $request->path, '/test_spore/foo'; - -done_testing; diff --git a/t/spore-request/query_string.t b/t/spore-request/query_string.t deleted file mode 100644 index 2ee7979..0000000 --- a/t/spore-request/query_string.t +++ /dev/null @@ -1,25 +0,0 @@ -use strict; -use Test::More; - -use Net::HTTP::Spore::Request; - -my $env = { - REQUEST_METHOD => 'GET', - SERVER_NAME => 'localhost', - SERVER_PORT => '80', - SCRIPT_NAME => '', - PATH_INFO => '/:database', - REQUEST_URI => '', - QUERY_STRING => '', - SERVER_PROTOCOL => 'HTTP/1.0', - 'spore.params' => [qw/database test_spore key foo rev 123/], -}; - -ok my $request = Net::HTTP::Spore::Request->new($env); - -is $request->query_string, 'key=foo&rev=123'; - -$env->{PATH_INFO} = '/:database/:key'; -is $request->query_string, 'rev=123'; - -done_testing; |