# -*- Mode: Perl; -*- use strict; print "1..1\n"; use CGI::Ex; my $html =<<"__HTML__";

test
test
test

__HTML__ my %fdat = (); my $fif = CGI::Ex->new; my $output = $fif->fill(scalarref => \$html, fdat => \%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))); unless ($strings_output eq $strings_html){ print "not "; } print "ok 1";