use Test::More tests => 5;
use HTML::Strip;
# test for RT#21008
# stripping comments
my $hs = HTML::Strip->new();
is( $hs->parse( "a<>b" ), "a b", 'edge case with <> ok' );
$hs->eof;
is( $hs->parse( "a<>b c<>d" ), "a b c d", 'edge case with <>s ok' );
$hs->eof;
is( $hs->parse( "From: <>\n\na. Title: some text\n\nb. etc\n" ), "From: \n\na. Title: some text\n\nb. etc\n", 'test case' );
is( $hs->parse( "From: <>\n\na. Title: some text\n\nb. etc\n" ), "From: \n\na. Title: some text\n\nb. etc\n", 'test case' );
$hs->eof;
is( $hs->parse( q{this is an "example" with 'quoted' parts that should not be stripped} ), q{this is an "example" with 'quoted' parts that should not be stripped} );