CGI::Ex 2.00

[chaz/p5-CGI-Ex] / t / 2_fill_10_escape.t
diff --git a/t/2_fill_10_escape.t b/t/2_fill_10_escape.t

index fbacf042534cbb5cb8f2113822bb1ca66b7bc335..e32fc9fd934e32803fe10349bd22dc91702be8ce 100644 (file)
--- a/t/2_fill_10_escape.t
+++ b/t/2_fill_10_escape.t
@@ -1,10 +1,16 @@
  # -*- 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');
  
-print "1..1\n";
-use CGI::Ex;
- 
  my $html =<<"__HTML__";
  <HTML>
  <BODY>
@@ -29,15 +35,12 @@ __HTML__
  
  my %fdat = ();
  
-my $fif = CGI::Ex->new;
-my $output = $fif->fill(scalarref => \$html,
-                       fdat => \%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)));
  
-unless ($strings_output eq $strings_html){
-       print "not ";
-}
-print "ok 1";
+ok($strings_output eq $strings_html,
+   "Strings matched");