The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

OALDERS / HTML-FillInForm-2.22 / t / 20_scalarref.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

              
use strict;
use warnings;
use Test::More;
use HTML::FillInForm;
# a few strings to test against
my @contents = (
    q{404},
    q{404 Not Found},
    q{Hello World},
    q{<html><body>Hello World</body></html>},
);
# our number of tests in the number of elements in @contents
plan tests => (scalar @contents);
# run each string through H::FIF
foreach my $content (@contents) {
    my $output = HTML::FillInForm->fill( \$content, fdat      => {});
    is($output, $content, q{output and content should be the same});
}