The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
HINNERK / HTML-StripTags-1.01 / t / strip_tags_variation10.t 
# Test strip_tags() function : usage variations - single quoted strings
# * testing functionality of strip_tags() by giving single quoted strings as values for $str argument

#------------------------- Pragmas ---------------------------------------------
use strict;
use warnings;

#------------------------- Libs ------------------------------------------------
use HTML::StripTags qw/strip_tags/;
use Test::More tests => 6;

#------------------------- Test Cases ------------------------------------------
my $tests = {
    1 => '<html> \$ -> This represents the dollar sign</html><?php echo hello ?>',
    2 => '<html>\t\r\v The quick brown fo\fx jumped over the lazy dog</p>',
    3 => '<a>This is a hyper text tag</a>',
    4 => '<? <html>hello world\\t</html>?>',
    5 => '<p>This is a paragraph</p>',
    6 => '<b>This is \ta text in bold letters\r\s\malong with slashes\n</b>'
};

my $results = {
    1 => '<html> \$ -> This represents the dollar sign</html>',
    2 => '<html>\t\r\v The quick brown fo\fx jumped over the lazy dog</p>',
    3 => '<a>This is a hyper text tag</a>',
    4 => '',
    5 => '<p>This is a paragraph</p>',
    6 => '<b>This is \ta text in bold letters\r\s\malong with slashes\n</b>'
};

my $quotes = "<html><a><p><b><?php";

foreach my $test_number (sort {$a <=> $b} keys %$tests) {
    is (strip_tags($tests->{$test_number}, $quotes), $results->{$test_number}, $tests->{$test_number});
}