1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!perl
# Tests for the param_fetch() method.
use Test::More 'no_plan';
use CGI;
{
my $q = CGI->new('b=baz;a=foo;a=bar');
is $q->param_fetch('a')->[0] => 'foo', 'first "a" is "foo"';
is $q->param_fetch( -name => 'a' )->[0] => 'foo',
'first "a" is "foo", with -name';
is $q->param_fetch('a')->[1] => 'bar', 'second "a" is "bar"';
is_deeply $q->param_fetch('a') => [qw/ foo bar /], 'a is array ref';
is_deeply $q->param_fetch( -name => 'a' ) => [qw/ foo bar /],
'a is array ref, w/ name';
is $q->param_fetch('b')->[0] => 'baz', '"b" is "baz"';
is_deeply $q->param_fetch('b') => [qw/ baz /], 'b is array ref too';
is_deeply $q->param_fetch, [], "param_fetch without parameters";
is_deeply $q->param_fetch( 'a', 'b' ), [qw/ foo bar /],
"param_fetch only take first argument";
}
|
