use strict;
use warnings;
use utf8;
use Test::More;
use HTML::Escape;
ok(HTML::Escape::USE_XS, "uses XS module") or do {
eval { XSLoader::load('HTML::Escape', $HTML::Escape::VERSION) };
diag $@ if $@;
};
is(escape_html("<^o^>"), '<^o^>');
is(escape_html("'"), "'");
is(escape_html("\0>"), "\0>");
is(escape_html("`"), "`");
is(escape_html("{}"), "{}");
done_testing;