1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
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 ê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" );
|
