# -*- Mode: Perl; -*- =head1 NAME 2_fill_10_escape.t - Make sure CGI::Ex::Fill works with escaped values. =cut use strict; use Test::More tests => 2; use_ok('CGI::Ex::Fill'); my $html =<<"__HTML__";

test
test
test

__HTML__ my %fdat = (); my $output = CGI::Ex::Fill::form_fill($html, \%fdat); # FIF changes order of HTML attributes, so split strings and sort my $strings_output = join("\n", sort split(/[\s><]+/, lc($output))); my $strings_html = join("\n", sort split(/[\s><]+/, lc($html))); ok($strings_output eq $strings_html, "Strings matched ($strings_output)");