The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
use Test;
BEGIN { plan tests => 13 }
# check that the following functions are available
ok( exists &Syntax::Highlight::HTML::new ); #01
ok( exists &Syntax::Highlight::HTML::parse ); #02
ok( exists &Syntax::Highlight::HTML::_highlight_tag ); #03
ok( exists &Syntax::Highlight::HTML::_highlight_text ); #04
# create an object
my $highlighter = undef;
eval { $highlighter = new Syntax::Highlight::HTML };
ok( $@, '' ); #05
ok( defined $highlighter ); #06
ok( $highlighter->isa('Syntax::Highlight::HTML' ) ); #07
ok( ref $highlighter, 'Syntax::Highlight::HTML' ); #08
# check that the following object methods are available
ok( ref $highlighter->can('can') , 'CODE' ); #09
ok( ref $highlighter->can('new') , 'CODE' ); #10
ok( ref $highlighter->can('parse') , 'CODE' ); #11
ok( ref $highlighter->can('_highlight_tag') , 'CODE' ); #12
ok( ref $highlighter->can('_highlight_text') , 'CODE' ); #13