cpan/CGI/t/hidden.t

   1 #!perl -w
   2
   3 use Test::More 'no_plan';
   4 use CGI;
   5
   6 my $q = CGI->new;
   7
   8 is( $q->hidden( 'hidden_name', 'foo' ),
   9     qq(<input type="hidden" name="hidden_name" value="foo"  />),
  10     'hidden() with single default value, positional');
  11
  12 is( $q->hidden( -name => 'hidden_name', -default =>'foo' ),
  13     qq(<input type="hidden" name="hidden_name" value="foo"  />),
  14     'hidden() with single default value, named');
  15
  16 is( $q->hidden( 'hidden_name', qw(foo bar baz fie) ),
  17     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"  />),
  18     'hidden() with default array, positional');
  19
  20 is( $q->hidden( -name=>'hidden_name',
  21             -Values =>[qw/foo bar baz fie/],
  22             -Title => "hidden_field"),
  23      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" />),
  24     'hidden() default array, named as "Values"');
  25
  26 is( $q->hidden( -name=>'hidden_name',
  27             -default =>[qw/foo bar baz fie/],
  28             -Title => "hidden_field"),
  29      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" />),
  30     'hidden() default array, named as "default"');
  31
  32 is( $q->hidden( -name=>'hidden_name',
  33             '-value' =>[qw/foo bar baz fie/],
  34             -Title => "hidden_field"),
  35      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" />),
  36     'hidden() default array, named as "value"');
  37
  38