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
27
28
29
30
31
32
33
34
35
36
37
38
|
#!perl -w
use Test::More 'no_plan';
use CGI;
my $q = CGI->new;
is( $q->hidden( 'hidden_name', 'foo' ),
qq(<input type="hidden" name="hidden_name" value="foo" />),
'hidden() with single default value, positional');
is( $q->hidden( -name => 'hidden_name', -default =>'foo' ),
qq(<input type="hidden" name="hidden_name" value="foo" />),
'hidden() with single default value, named');
is( $q->hidden( 'hidden_name', qw(foo bar baz fie) ),
qq(<input type="hidden" name="hidden_name" value="foo" /><input type="hidden" name="hidden_name" value="bar" /><input type="hidden" name="hidden_name" value="baz" /><input type="hidden" name="hidden_name" value="fie" />),
'hidden() with default array, positional');
is( $q->hidden( -name=>'hidden_name',
-Values =>[qw/foo bar baz fie/],
-Title => "hidden_field"),
qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
'hidden() default array, named as "Values"');
is( $q->hidden( -name=>'hidden_name',
-default =>[qw/foo bar baz fie/],
-Title => "hidden_field"),
qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
'hidden() default array, named as "default"');
is( $q->hidden( -name=>'hidden_name',
'-value' =>[qw/foo bar baz fie/],
-Title => "hidden_field"),
qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
'hidden() default array, named as "value"');
|
