import the Plack::Request test suite

1 files changed, 26 insertions, 0 deletions

diff --git a/t/params.t b/t/params.t
new file mode 100644
index 0000000..6d96fee
--- /dev/null
+++ b/t/params.t
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Web::Request;
+
+my $req = Web::Request->new_from_env({ QUERY_STRING => "foo=bar" });
+is_deeply $req->parameters, { foo => "bar" };
+is $req->param('foo'), "bar";
+is_deeply [ keys %{ $req->parameters } ], [ 'foo' ];
+
+$req = Web::Request->new_from_env({ QUERY_STRING => "foo=bar&foo=baz" });
+is_deeply $req->parameters, { foo => "baz" };
+is $req->param('foo'), "baz";
+is_deeply $req->all_parameters->{foo}, [ qw(bar baz) ];
+is_deeply [ keys %{ $req->parameters } ], [ 'foo' ];
+
+$req = Web::Request->new_from_env({ QUERY_STRING => "foo=bar&foo=baz&bar=baz" });
+is_deeply $req->parameters, { foo => "baz", bar => "baz" };
+is_deeply $req->query_parameters, { foo => "baz", bar => "baz" };
+is $req->param('foo'), "baz";
+is_deeply $req->all_parameters->{foo}, [ qw(bar baz) ];
+is_deeply [ sort keys %{ $req->parameters } ], [ 'bar', 'foo' ];
+
+done_testing;