64htmltext.t [plain text]

use strict;
use vars qw( @tokens );

BEGIN {
    @tokens = (
        "\n",                               "\n",
        "\nVous Etes Perdu ?\n",            "\n",
        "\n",                               "\n",
        "Perdu sur l'Internet ?",           "\n",
        "Pas de panique, on va vous aider", "\n",
        "    * ",                           "<-",
        "---- vous ",                       "tes ici",
        "\n",                               "\n",
        "\n\n"
    );
}

use Test::More tests => 2 + scalar @tokens;
use HTTP::Proxy::BodyFilter::htmltext;

# the tests are in the HTTP::Proxy::BodyFilter::htmltext callback
my $sub = sub { is( $_, shift (@tokens), "Correct text token matched" ); };
my $data =
qq{<HTML>\n<HEAD>\n<TITLE>\nVous Etes Perdu ?\n</TITLE>\n</HEAD>\n<BODY>\n<H1>Perdu sur l'Internet ?</H1>\n<H2>Pas de panique, on va vous aider</H2>\n<STRONG><PRE>    * <----- vous &ecirc;tes ici</PRE></STRONG>\n</BODY>\n</HTML>\n\n};
my $result = $data;

# test the filter's parser
my $filter = HTTP::Proxy::BodyFilter::htmltext->new($sub);
$filter->filter( \$data, undef, undef, undef );
is( $data, $result, "Text data not modified" );

# test the result data when modified
$result = $data = "<h1>This is a test.</h1>\n<p>Yes, a <b>test</b></p>\n";
$result =~ s/test/foobar/g;
$filter = HTTP::Proxy::BodyFilter::htmltext->new( sub { s/test/foobar/g } );
$filter->filter( \$data, undef, undef, undef );

is( $data, $result, "Text data correctly transformed" );