# -*- Mode: Perl; -*- =head1 NAME 2_fill_17_xhtml.t - Test CGI::Ex::Fill's ability to play nice with XHTML =cut use strict; use Test::More tests => 2; use_ok('CGI::Ex::Fill'); my $html = < Canceled
Confirmed
Wait List
No Show
Moved to Another Class
Late Cancel
EOF my $q = { status => 1, }; my $output = CGI::Ex::Fill::form_fill($html, $q); my $matches; while ($output =~ m!( />)!g) { $matches++; } ok($matches == 6, "Had correct matches ($output)");