# -*- Mode: Perl; -*- use Test::More 'no_plan'; use strict; use HTML::FillInForm; my $html =<<"__HTML__";

test
test
test

__HTML__ my %fdat = (); my $output = HTML::FillInForm->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))); is($strings_output,$strings_html);