Dogcows Code - chaz/p5-CGI-Ex/blob - t/2_fill_14_password.t

   1 # -*- Mode: Perl; -*-
   2
   3 #!/usr/bin/perl -w
   4
   5 use CGI qw(:no_debug);
   6 use CGI::Ex;
   7 use Test;
   8
   9 BEGIN { plan tests => 2 }
  10
  11 local $/;
  12 my $html = qq{<input type="password" name="foo">};
  13 my $q = new CGI;
  14 $q->param( foo => 'bar' );
  15
  16 {
  17     my $fif = new CGI::Ex;
  18     my $output = $fif->fill(
  19         scalarref => \$html,
  20         fobject   => $q,
  21         fill_password => 0,
  22     );
  23
  24     ok($output !~ /value="bar"/);
  25 }
  26
  27
  28 {
  29     my $fif = new CGI::Ex;
  30     my $output = $fif->fill(
  31         scalarref => \$html,
  32         fobject   => $q,
  33 #       fill_password => 1,
  34     );
  35
  36     ok($output =~ /value="bar"/);
  37 }
  38
  39