From f9f3ab3056d94292adb4ab2e1451645bee989769 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@lorry>
Date: Tue, 16 Jun 2015 06:44:29 +0000
Subject: CGI-4.21

---
 t/html_functions.t | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 t/html_functions.t

(limited to 't/html_functions.t')

diff --git a/t/html_functions.t b/t/html_functions.t
new file mode 100644
index 0000000..e5fcbeb
--- /dev/null
+++ b/t/html_functions.t
@@ -0,0 +1,53 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+
+use CGI qw/ -compile :all /;
+
+# check html functions are imported into this namespace
+# with the -compile pragma
+is( a({ bar => "boz" }),"<a bar=\"boz\" />","-compile" );
+
+my $q = CGI->new;
+
+foreach my $tag ( $q->_all_html_tags ) {
+
+	my $expected_tag = lc( $tag );
+
+	is(
+		$q->$tag(),
+		"<$expected_tag />",
+		"$tag function (no args)"
+	);
+
+	is(
+		$q->$tag( 'some','contents' ),
+		"<$expected_tag>some contents</$expected_tag>",
+		"$tag function (content)"
+	);
+
+	is(
+		$q->$tag( { bar => 'boz', biz => 'baz' } ),
+		"<$expected_tag bar=\"boz\" biz=\"baz\" />",
+		"$tag function (attributes)"
+	);
+
+	is(
+		$q->$tag( { bar => 'boz' },'some','contents' ),
+		"<$expected_tag bar=\"boz\">some contents</$expected_tag>",
+		"$tag function (attributes and content)"
+	);
+
+	next if ($tag eq 'html');
+
+	my $start = "start_$tag";
+	is( $q->$start( 'foo' ),"<$expected_tag>","$start function" );
+
+	my $end = "end_$tag";
+	is( $q->$end( 'foo' ),"</$expected_tag>","$end function" );
+}
+
+ok( $q->compile,'compile' );
-- 
cgit v1.2.1