# -*- Mode: Perl; -*-
=head1 NAME
2_fill_20_switcharoo.t - Test CGI::Ex::Fill's ability to handle many different types of broken html tags
=cut
use strict;
use Test::More tests => 27;
use_ok('CGI::Ex::Fill');
my $string;
my %fdat = (foo1 => 'bar1');
my $do_ok = sub {
my @a;
ok($string =~ m/ value=([\"\'])bar1\1/i
&& 1 == scalar(@a=$string =~ m/(value)/gi), "Should match ($string)");
};
###----------------------------------------------------------------###
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();
$string = qq{};
CGI::Ex::Fill::form_fill(\$string, \%fdat);
$do_ok->();