From 05b308403152d2287bc0b5d191a60ea88db4ac11 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Marc=20V=C3=A9ron?= <veron@veron.ch>
Date: Thu, 25 May 2017 21:52:09 +0200
Subject: [PATCH] Bug 18665: Add test for HtmlTags.pm

This patch adds tests for the tt filter HtmlTags.pm

To test: prove -v t/HtmlTags.t should pass

Signed-off-by: Alex Buckley <alexbuckley@catalyst.net.nz>

Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 t/HtmlTags.t | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 t/HtmlTags.t

diff --git a/t/HtmlTags.t b/t/HtmlTags.t
new file mode 100755
index 0000000000..3746d2c8c2
--- /dev/null
+++ b/t/HtmlTags.t
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+#
+# This module tests the HtmlTag filter
+#
+
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+
+BEGIN { use_ok('Koha::Template::Plugin::HtmlTags'); }
+
+my $filter = Koha::Template::Plugin::HtmlTags->new();
+ok ($filter, "new()");
+
+
+# Test simple tag
+my $expected = '<h1>TEST</h1>';
+my $created = $filter->filter('TEST','', {tag => 'h1'} );
+is( $created, $expected, "Testing simple tag works: $expected - $created");
+
+# Test tag with attributes
+$expected = '<h1 class="MYCLASS" title="MYTITLE">TEST</h1>';
+$created = $filter->filter('TEST','', {tag => 'h1', attributes => 'class="MYCLASS" title="MYTITLE"'} );
+is($created, $expected, "Testing tag with attributes works: $expected - $created");
-- 
2.39.5