5 2_fill_17_xhtml.t - Test CGI::Ex::Fill's ability to play nice with XHTML
10 use Test::More tests => 2;
12 use_ok('CGI::Ex::Fill');
15 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
16 "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">
19 <input type="radio" name="status" value=0 />Canceled<br>
20 <input type="radio" name="status" value=1 />Confirmed<br>
21 <input type="radio" name="status" value=2 />Wait List<br>
23 <input type="radio" name="status" value=3 />No Show<br>
24 <input type="radio" name="status" value=4 />Moved to Another Class<br>
25 <input type="radio" name="status" value=5 />Late Cancel<br>
34 my $output = CGI::Ex::Fill::form_fill($html, $q);
37 while ($output =~ m!( />)!g) {
42 "Had correct matches ($output)");