5 2_fill_20_switcharoo.t - Test CGI::Ex::Fill's ability to handle many different types of broken html tags
10 use Test::More tests => 27;
12 use_ok('CGI::Ex::Fill');
16 my %fdat = (foo1 => 'bar1');
19 ok($string =~ m/ value=([\"\'])bar1\1/i
20 && 1 == scalar(@a=$string =~ m/(value)/gi), "Should match ($string)");
23 ###----------------------------------------------------------------###
25 $string = qq{<input name="foo1">};
26 CGI::Ex::Fill::form_fill(\$string, \%fdat);
29 $string = qq{<input name=foo1>};
30 CGI::Ex::Fill::form_fill(\$string, \%fdat);
33 $string = qq{<input name=foo1 />};
34 CGI::Ex::Fill::form_fill(\$string, \%fdat);
37 $string = qq{<input value name="foo1">};
38 CGI::Ex::Fill::form_fill(\$string, \%fdat);
41 $string = qq{<input value value name="foo1">};
42 CGI::Ex::Fill::form_fill(\$string, \%fdat);
45 $string = qq{<input value value="" name="foo1">};
46 CGI::Ex::Fill::form_fill(\$string, \%fdat);
49 $string = qq{<input grrr name="foo1" value="">};
50 CGI::Ex::Fill::form_fill(\$string, \%fdat);
53 $string = qq{<input value= name="foo1">};
54 CGI::Ex::Fill::form_fill(\$string, \%fdat);
57 $string = qq{<input type=hidden value= name="foo1">};
58 CGI::Ex::Fill::form_fill(\$string, \%fdat);
61 $string = qq{<input value= type="hidden" name="foo1">};
62 CGI::Ex::Fill::form_fill(\$string, \%fdat);
65 $string = qq{<input value="" name="foo1">};
66 CGI::Ex::Fill::form_fill(\$string, \%fdat);
69 $string = qq{<input value='' name="foo1">};
70 CGI::Ex::Fill::form_fill(\$string, \%fdat);
73 $string = qq{<input value='one' name="foo1">};
74 CGI::Ex::Fill::form_fill(\$string, \%fdat);
77 $string = qq{<input Value="one" name="foo1">};
78 CGI::Ex::Fill::form_fill(\$string, \%fdat);
81 $string = qq{<input VALUE="one" name="foo1">};
82 CGI::Ex::Fill::form_fill(\$string, \%fdat);
85 $string = qq{<input name="foo1" value="one">};
86 CGI::Ex::Fill::form_fill(\$string, \%fdat);
89 $string = qq{<INPUT NAME="foo1" VALUE="one">};
90 CGI::Ex::Fill::form_fill(\$string, \%fdat);
93 $string = qq{<INPUT NAME="foo1" VALUE="one" >};
94 CGI::Ex::Fill::form_fill(\$string, \%fdat);
97 $string = qq{<INPUT NAME="foo1" VALUE="" >};
98 CGI::Ex::Fill::form_fill(\$string, \%fdat);
101 $string = qq{<INPUT NAME="foo1" VALUE= >};
102 CGI::Ex::Fill::form_fill(\$string, \%fdat);
105 $string = qq{<INPUT NAME="foo1" VALUE >};
106 CGI::Ex::Fill::form_fill(\$string, \%fdat);
109 $string = qq{<INPUT NAME="foo1" VALUE />};
110 CGI::Ex::Fill::form_fill(\$string, \%fdat);
113 $string = qq{<INPUT NAME="foo1" VALUE= />};
114 CGI::Ex::Fill::form_fill(\$string, \%fdat);
117 $string = qq{<INPUT NAME="foo1" VALUE="" />};
118 CGI::Ex::Fill::form_fill(\$string, \%fdat);
121 $string = qq{<INPUT NAME="foo1" VALUE="one" />};
122 CGI::Ex::Fill::form_fill(\$string, \%fdat);
125 $string = qq{<INPUT NAME="foo1" VALUE="one" />};
126 CGI::Ex::Fill::form_fill(\$string, \%fdat);