File: 13_warning.t

package info (click to toggle)
libhtml-fillinform-perl 2.22-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 356 kB
  • sloc: perl: 649; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 493 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
# -*- Mode: Perl; -*-

#!/usr/bin/perl -w

# emits warnings for HTML::FIF <= 0.22

use CGI qw(:no_debug);
use HTML::FillInForm;
use Test;

BEGIN { plan tests => 1 }

local $/;
my $html = qq{<input type="submit" value="Commit">};
 
my $q = new CGI;
 
$q->param( "name", "John Smith" );
my $fif = new HTML::FillInForm;
my $output = $fif->fill(
                         scalarref => \$html,
                         fobject   => $q
);

ok($html =~ m!<input( type="submit"| value="Commit"){2}>!);