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
40
41
42
43
|
# perl Makefile.PL && nmake realclean && cls && perl Makefile.PL && nmake test
# cpan-upload -mailto yo@yo.yo -verbose -user podmaster HTML-Scrubber-0.04.tar.gz
use strict;
use Test::More tests => 7;
BEGIN { $^W = 1 }
use_ok('HTML::Scrubber');
my $s = HTML::Scrubber->new;
my $html = q[<a href=1>link </a><br><B> bold </B><U> UNDERLINE </U>];
isa_ok( $s, 'HTML::Scrubber' );
$s->rules( 'font' => { face => 1 } );
is( $s->scrub('<font face="gothic">'), '<font face="gothic">', 'font face gothic' );
$s->allow(qw[ U ]);
#use Data::Dumper;warn $/,Dumper($s);
is( $s->scrub($html), q[link bold <u> UNDERLINE </u>], 'only U' );
$s->allow(qw[ B U ]);
#use Data::Dumper;warn $/,Dumper($s);
is( $s->scrub($html), q[link <b> bold </b><u> UNDERLINE </u>], 'B and U' );
$s->allow(qw[ A B ]);
$s->deny('U');
$s->default( 0, { '*' => 1 } );
#use Data::Dumper;warn $/,Dumper($s);
is( $s->scrub($html), q[<a href="1">link </a><b> bold </b> UNDERLINE ], 'A and B' );
$s = HTML::Scrubber->new( default => [ 1, { '*' => 1 } ] );
is( $s->scrub($html), q[<a href="1">link </a><br><b> bold </b><u> UNDERLINE </u>], 'A B U and BR' );
#use Data::Dumper;warn $/,Dumper($s);
|
