#!/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 = "

Hello world!

"; 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";

Hello world!

EOF my $expected_with_newlines = <<"EOF";

Hello world!

EOF my $expected_wo_newlines = <<"EOF";

Hello world!

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";

Hello world!

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";

Hello world! 

Hello y'all! Good
EOF my $expected_with_newlines = <<"EOF";

Hello world! 

Hello y'all! Good
EOF my $expected_wo_newlines = <<"EOF";

Hello world!

Hello y'all! Good
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"); }