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

   1 # -*- Mode: Perl; -*-
   2
   3 use strict;
   4
   5 $^W = 1;
   6
   7 print "1..2\n";
   8
   9 use CGI::Ex;
  10
  11 print "ok 1\n";
  12
  13 my $string = qq{
  14 <input attr="<br value='waw'>
  15 <br>" type="hidden" name="foo1">
  16 };
  17
  18 my %fdat = (foo1 => 'bar1');
  19
  20
  21 my $cgix = new CGI::Ex;
  22 $cgix->fill(text => \$string,
  23             form => \%fdat,
  24             );
  25
  26 if ($string =~ m/ value="bar1"/) {
  27   print "ok 2\n";
  28 } else {
  29   print "not ok 2\n";
  30 }