The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
SHLOMIF / HTML-Strip-Whitespace-v0.1.8 / t / HTML-Strip-Whitespace.t 
#!/usr/bin/perl

use strict;
use warnings;

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 5;

BEGIN
{
    use_ok('HTML::Strip::Whitespace', "html_strip_whitespace"); # TEST
}

sub get_html
{
    my $source = shift;
    my $buffer = "";
    html_strip_whitespace(
        'source' => \$source,
        'out' => \$buffer,
        @_
        );
    return $buffer;
}


{
    my $in = "<html><body><p>Hello world!</p></body></html>";

    my $expected_with_newlines = $in;

    my $expected_wo_newlines = $in;

    my $result_with_newlines = get_html($in, 'strip_newlines' => 0);
    my $result_wo_newlines = get_html($in, 'strip_newlines' => 1);

    # TEST
    is($result_with_newlines, $expected_with_newlines, "Do Nothing - w Newlines");

    # is($result_wo_newlines, $expected_wo_newlines, "Do Nothing - wo Newlines");
}

{
    my $in = <<"EOF";
<html>
    <body>
        <p>
        Hello world!
        </p>
    </body>
</html>
EOF

    my $expected_with_newlines = <<"EOF";
<html>
<body>
<p>
Hello world!
</p>
</body>
</html>
EOF

    my $expected_wo_newlines = <<"EOF";
<html><body><p>Hello world!</p></body></html>
EOF

    my $result_with_newlines = get_html($in, 'strip_newlines' => 0);
    my $result_wo_newlines = get_html($in, 'strip_newlines' => 1);

    # TEST
    is($result_with_newlines, $expected_with_newlines, "Simple Test #1 - w Newlines");
    # is($result_wo_newlines, $expected_wo_newlines, "Simple Test #1 - wo Newlines");
}


{
    my $in = <<"EOF";
<html>
<body>
<p>Hello world!</p>
</body>
</html>
EOF

    my $expected_with_newlines = $in;

    my $expected_wo_newlines = $in;
    $expected_wo_newlines =~ s/\n//g;

    my $result_with_newlines = get_html($in, 'strip_newlines' => 0);
    my $result_wo_newlines = get_html($in, 'strip_newlines' => 1);

    # TEST
    is($result_with_newlines, $expected_with_newlines, "Simple #1 - w Newlines");

    # is($result_wo_newlines, $expected_wo_newlines, "Simple #2 - wo Newlines");
}

{
    my $in = <<"EOF";
<html>
    <body>
        <p>
        Hello world!
        </p>
        <pre>
Hello y'all! <b>Good</b>
        </pre>
    </body>
</html>
EOF

    my $expected_with_newlines = <<"EOF";
<html>
<body>
<p>
Hello world!
</p>
<pre>
Hello y'all! <b>Good</b>
        </pre>
</body>
</html>
EOF

    my $expected_wo_newlines = <<"EOF";
<html><body><p>Hello world!</p><pre>
Hello y'all! <b>Good</b>
        </pre></body></html>
EOF

    my $result_with_newlines = get_html($in, 'strip_newlines' => 0);
    my $result_wo_newlines = get_html($in, 'strip_newlines' => 1);

    # TEST
    is($result_with_newlines, $expected_with_newlines,  "Pre Test #1 - w Newlines");

    # is($result_wo_newlines, $expected_wo_newlines, "Pre Test #1 - wo Newlines");
}