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

   1 # -*- Mode: Perl; -*-
   2
   3 #!/usr/bin/perl -w
   4
   5 # emits warnings for HTML::FIF <= 0.22
   6
   7 use CGI qw(:no_debug);
   8 use CGI::Ex;
   9 use Test;
  10
  11 BEGIN { plan tests => 1 }
  12
  13 local $/;
  14 my $html = qq{<input type="submit" value="Commit">};
  15
  16 my $q = new CGI;
  17
  18 $q->param( "name", "John Smith" );
  19 my $fif = new CGI::Ex;
  20 my $output = $fif->fill(
  21                          scalarref => \$html,
  22                          fobject   => $q
  23 );
  24
  25 ok($html =~ m!<input( type="submit"| value="Commit"){2}>!);