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

   1 # -*- Mode: Perl; -*-
   2
   3 =head1 NAME
   4
   5 2_fill_13_warning.t - Check for no warning on a special case - I can't remember what it was though
   6
   7 =cut
   8
   9 use strict;
  10 use Test::More tests => 2;
  11
  12 # emits warnings for HTML::FIF <= 0.22
  13
  14 use_ok('CGI::Ex::Fill');
  15
  16 SKIP: {
  17     skip("CGI.pm not found", 1) if ! eval { require CGI };
  18     CGI->import(':no_debug');
  19
  20     local $/;
  21     my $html = qq{<input type="submit" value="Commit">};
  22
  23     my $q = CGI->new;
  24
  25     $q->param( "name", "John Smith" );
  26     my $output = CGI::Ex::Fill::form_fill($html, $q);
  27
  28     ok($html =~ m!<input( type="submit"| value="Commit"){2}>!);
  29 };