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

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 2_fill_19_complex.t - Test CGI::Ex::Fill's regex against difficult tags (with embeded html)
   6
   7 =cut
   8
   9 use strict;
  10 use Test::More tests => 2;
  11
  12 use_ok('CGI::Ex::Fill');
  13
  14 my $string = qq{
  15 <input attr="<br value='waw'>
  16 <br>" type="hidden" name="foo1">
  17 };
  18
  19 my %fdat = (foo1 => 'bar1');
  20
  21
  22 CGI::Ex::Fill::form_fill(\$string,
  23                          \%fdat,
  24                          );
  25
  26 ok($string =~ m/ value="bar1"/,
  27    "Should match ($string)");