CGI::Ex 2.00

[chaz/p5-CGI-Ex] / t / 2_fill_11_target.t

diff --git a/t/2_fill_11_target.t b/t/2_fill_11_target.t
index 4a270deeeaa1fb8e3bbbca500ecd4ecab3544d77..a1083b6d05070d74504d7b863d1b48adb51f72c1 100644 (file)
--- a/t/2_fill_11_target.t
+++ b/t/2_fill_11_target.t
@@ -1,10 +1,15 @@
 # -*- Mode: Perl; -*-
 
+=head1 NAME
+
+2_fill_11_target.t - Test CGI::Ex::Fill's ability to fill hidden fields
+
+=cut
+
 use strict;
-use Test;
-BEGIN { plan tests => 3 }
+use Test::More tests => 4;
 
-use CGI::Ex;
+use_ok('CGI::Ex::Fill');
 
 my $form = <<EOF;
 <FORM name="foo1">
@@ -18,21 +23,16 @@ my $form = <<EOF;
 </FORM>
 EOF
   ;
-  
+
 my %fdat = (
   foo1 => 'bar1',
   foo2 => 'bar2',
   foo3 => 'bar3',
 );
 
-my $fif = new CGI::Ex;
-my $output = $fif->fill(
-  scalarref => \$form,
-  fdat => \%fdat,
-  target => 'foo2',
-);
+my $output = CGI::Ex::Fill::form_fill($form, \%fdat, 'foo2');
 
 my @v = $output =~ m/<input .*?value="(.*?)"/ig;
-ok($v[0], 'nada');
-ok($v[1], 'bar2');
-ok($v[2], 'nada');
+ok($v[0] eq 'nada');
+ok($v[1] eq 'bar2');
+ok($v[2] eq 'nada');