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

   1 # -*- Mode: Perl; -*-
   2
   3 use strict;
   4
   5 $^W = 1;
   6
   7 print "1..2\n";
   8
   9 use CGI::Ex;
  10 print "ok 1\n";
  11
  12 my $hidden_form_in = qq{<input type="hidden" name="foo">
  13 <input type="hidden" name="foo" value="ack">};
  14
  15 my %fdat = (foo => 'bar1a');
  16
  17 my $fif = new CGI::Ex;
  18 my $output = $fif->fill(scalarref => \$hidden_form_in,
  19                         fdat => \%fdat);
  20 if ($output =~ m/^<input( (type="hidden"|name="foo"|value="bar1a")){3}>\s*<input( (type="hidden"|name="foo"|value="bar1a")){3}>$/){
  21         print "ok 2\n";
  22 } else {
  23         print "Got unexpected out for hidden form:\n$output\n";
  24         print "not ok 2\n";
  25 }