Dogcows Code - chaz/p5-CGI-Ex/blob - t/2_fill_11_target.t

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 2_fill_11_target.t - Test CGI::Ex::Fill's ability to fill hidden fields
   6
   7 =cut
   8
   9 use strict;
  10 use Test::More tests => 4;
  11
  12 use_ok('CGI::Ex::Fill');
  13
  14 my $form = <<EOF;
  15 <FORM name="foo1">
  16 <INPUT TYPE="TEXT" NAME="foo1" value="nada">
  17 </FORM>
  18 <FORM name="foo2">
  19 <INPUT TYPE="TEXT" NAME="foo2" value="nada">
  20 </FORM>
  21 <FORM>
  22 <INPUT TYPE="TEXT" NAME="foo3" value="nada">
  23 </FORM>
  24 EOF
  25   ;
  26
  27 my %fdat = (
  28   foo1 => 'bar1',
  29   foo2 => 'bar2',
  30   foo3 => 'bar3',
  31 );
  32
  33 my $output = CGI::Ex::Fill::form_fill($form, \%fdat, 'foo2');
  34
  35 my @v = $output =~ m/<input .*?value="(.*?)"/ig;
  36 ok($v[0] eq 'nada');
  37 ok($v[1] eq 'bar2');
  38 ok($v[2] eq 'nada');