gut tests

[catagits/DOM-Tiny.git] / t / entities.t

diff --git a/t/entities.t b/t/entities.t
index 7d8f879..6caec47 100644 (file)
--- a/t/entities.t
+++ b/t/entities.t
@@ -1,46 +1,9 @@
 use strict;
 use warnings;
-use utf8;
 use Test::More;
-use DOM::Tiny::Entities qw(html_escape html_unescape);
-use Encode 'decode';
+use DOM::Tiny::Entities ();
 
-# html_unescape
-is html_unescape('<foo>bar<baz>&"'),
-  "<foo>bar<baz>&\"", 'right HTML unescaped result';
-
-# html_unescape (special entities)
-is html_unescape('foo &#x2603; &CounterClockwiseContourIntegral; bar &sup1baz'),
-  "foo ☃ \x{2233} bar &sup1baz", 'right HTML unescaped result';
-
-# html_unescape (multi-character entity)
-is html_unescape(decode 'UTF-8', '&acE;'), "\x{223e}\x{0333}",
-  'right HTML unescaped result';
-
-# html_unescape (apos)
-is html_unescape('foobar&apos;&lt;baz&gt;&#x26;&#34;'), "foobar'<baz>&\"",
-  'right HTML unescaped result';
-
-# html_unescape (nothing to unescape)
-is html_unescape('foobar'), 'foobar', 'right HTML unescaped result';
-
-# html_unescape (bengal numbers with nothing to unescape)
-is html_unescape('&#০৩৯;&#x০৩৯;'), '&#০৩৯;&#x০৩৯;', 'no changes';
-
-# html_unescape (UTF-8)
-is html_unescape(decode 'UTF-8', 'foo&lt;baz&gt;&#x26;&#34;&OElig;&Foo;'),
-  "foo<baz>&\"\x{152}&Foo;", 'right HTML unescaped result';
-
-# html_escape
-is html_escape(qq{la<f>\nbar"baz"'yada\n'&lt;la}),
-  "la&lt;f&gt;\nbar&quot;baz&quot;&#39;yada\n&#39;&amp;lt;la",
-  'right HTML escaped result';
-
-# html_escape (UTF-8 with nothing to escape)
-is html_escape('привет'), 'привет', 'right HTML escaped result';
-
-# html_escape (UTF-8)
-is html_escape('привет<foo>'), 'привет&lt;foo&gt;',
-  'right HTML escaped result';
+is(\&DOM::Tiny::Entities::html_escape, \&Mojo::DOM58::Entities::html_escape);
+is(\&DOM::Tiny::Entities::html_unescape, \&Mojo::DOM58::Entities::html_unescape);
 
 done_testing;