X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/3dd60490b2f12aeabc457292b87fe43772ce0304..958d374e19b67a3c68050a1dd29f7a10a44c74c9:/t/15-escape.t

diff --git a/t/15-escape.t b/t/15-escape.t
new file mode 100644
index 0000000..cbc9f90
--- /dev/null
+++ b/t/15-escape.t
@@ -0,0 +1,38 @@
+use strict;
+
+use Test::More tests => 6;
+
+BEGIN { use_ok('PLP::Functions', 1.01) }
+
+# EscapeHTML
+
+is(
+	EscapeHTML(qq{\t<a  test="'&'"/>\n}),
+	"\t&lt;a  test=&quot;'&amp;'&quot;/&gt;\n",
+	'EscapeHTML'
+);
+
+is(
+	EscapeHTML(undef),
+	undef,
+	'EscapeHTML undef'
+);
+
+is(
+	eval { EscapeHTML('output', '') },
+	undef,
+	'EscapeHTML parameters'
+);
+
+is(
+	eval { my $val = qq{  ><"\n}; EscapeHTML($val); $val },
+	"  &gt;&lt;&quot;\n",
+	'EscapeHTML replace'
+);
+
+is(
+	eval { EscapeHTML('output'); return 'no error' },
+	undef,
+	'EscapeHTML read-only modification'
+);
+