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

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 2_fill_13_password.t - Test CGI::Ex::Fill's ability to not fill passwords
   6
   7 =cut
   8
   9 use strict;
  10 use Test::More tests => 3;
  11
  12 use_ok('CGI::Ex::Fill');
  13
  14 local $/;
  15 my $html = qq{<input type="password" name="foo">};
  16 my $q = {foo => 'bar'};
  17
  18 my $output = CGI::Ex::Fill::form_fill($html, $q, undef, 0);
  19 ok($output !~ /value="bar"/);
  20
  21 $output = CGI::Ex::Fill::form_fill($html, $q, undef);
  22 ok($output =~ /value="bar"/);
  23
  24
  25