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

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