BEGIN { plan
tests
=> 13 }
ok(
exists
&Syntax::Highlight::HTML::new
);
ok(
exists
&Syntax::Highlight::HTML::parse
);
ok(
exists
&Syntax::Highlight::HTML::_highlight_tag
);
ok(
exists
&Syntax::Highlight::HTML::_highlight_text
);
my
$highlighter
=
undef
;
eval
{
$highlighter
= new Syntax::Highlight::HTML };
ok( $@,
''
);
ok(
defined
$highlighter
);
ok(
$highlighter
->isa(
'Syntax::Highlight::HTML'
) );
ok(
ref
$highlighter
,
'Syntax::Highlight::HTML'
);
ok(
ref
$highlighter
->can(
'can'
) ,
'CODE'
);
ok(
ref
$highlighter
->can(
'new'
) ,
'CODE'
);
ok(
ref
$highlighter
->can(
'parse'
) ,
'CODE'
);
ok(
ref
$highlighter
->can(
'_highlight_tag'
) ,
'CODE'
);
ok(
ref
$highlighter
->can(
'_highlight_text'
) ,
'CODE'
);