plan
tests
=> 3;
require_ok(
'XHTML::Instrumented'
);
my
$data
=
<<'DATA';
<div>
<span><b><i>@@bob@@</i></b><b>.</b></span>
<span><b><i>two</i></b><b>.</b></span>
</div>
DATA
my
$cmp
=
<<'DATA';
<div>
<span><i>Bob</i>.</span>
<span><i>two</i>.</span>
</div>
DATA
my
$x
= XHTML::Instrumented->new(
name
=> \
$data
,
type
=>
''
,
filter
=>
sub
{
my
%p
=
@_
;
my
$tag
=
$p
{tag};
my
$args
=
$p
{args};
if
(
$tag
eq
'b'
) {
$args
->{class} =
':removetag'
;
}
});
my
$output
=
$x
->output(
bob
=>
'Bob'
,
);
is_xml(
$output
,
$cmp
,
'simple'
);
$data
=
<<'DATA';
<div>
<span><b><i>@@bob.adsf@@</i></b><b>.</b></span>
<span><b><i>three</i></b><b>.</b></span>
</div>
DATA
$cmp
=
<<'DATA';
<div>
<span><b>Bob</b><b>.</b></span>
<span><b>three</b><b>.</b></span>
</div>
DATA
$x
= XHTML::Instrumented->new(
name
=> \
$data
,
type
=>
''
,
filter
=>
sub
{
my
%p
=
@_
;
my
$tag
=
$p
{tag};
my
$args
=
$p
{args};
if
(
$tag
eq
'i'
) {
$args
->{class} =
':removetag'
;
}
});
$output
=
$x
->output(
bob
=>
'Bob'
,
);
is_xml(
$output
,
$cmp
,
'simple'
);