use warnings;
use utf8;
use Test::More;
-use DOM::Tiny::Entities qw(html_unescape xml_escape);
+use DOM::Tiny::Entities qw(html_escape html_unescape);
use Encode 'decode';
# html_unescape
is html_unescape(decode 'UTF-8', 'foo<baz>&"Œ&Foo;'),
"foo<baz>&\"\x{152}&Foo;", 'right HTML unescaped result';
-# xml_escape
-is xml_escape(qq{la<f>\nbar"baz"'yada\n'<la}),
+# html_escape
+is html_escape(qq{la<f>\nbar"baz"'yada\n'<la}),
"la<f>\nbar"baz"'yada\n'&lt;la",
- 'right XML escaped result';
+ 'right HTML escaped result';
-# xml_escape (UTF-8 with nothing to escape)
-is xml_escape('привет'), 'привет', 'right XML escaped result';
+# html_escape (UTF-8 with nothing to escape)
+is html_escape('привет'), 'привет', 'right HTML escaped result';
-# xml_escape (UTF-8)
-is xml_escape('привет<foo>'), 'привет<foo>',
- 'right XML escaped result';
+# html_escape (UTF-8)
+is html_escape('привет<foo>'), 'привет<foo>',
+ 'right HTML escaped result';
done_testing;