# 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);