Bug 22368: Make sure the tests will always pass

[koha.git] / t / template_filters.t

diff --git a/t/template_filters.t b/t/template_filters.t
index e469835..b479faa 100644 (file)
--- a/t/template_filters.t
+++ b/t/template_filters.t
@@ -16,7 +16,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use Test::More tests => 6;
+use Test::More tests => 7;
 use t::lib::QA::TemplateFilters;
 
 subtest 'Asset must use raw' => sub {
@@ -261,13 +261,15 @@ INPUT
     is_deeply( \@missing_filters, [], 'html_entity is a valid filter for href' );
 };
 
-subtest 'Do not escape KohaDates output' => sub {
+subtest 'Do not escape KohaDates|Prices|HtmlTags output' => sub {
     plan tests => 2;
     my $input = <<INPUT;
 [% var | \$KohaDates %]
 [% var | \$KohaDates with_hours => 1 %]
 [% var | \$KohaDates | html %]
 [% var | \$KohaDates with_hours => 1 | html %]
+[% var | \$Price %]
+[% var | \$HtmlTags %]
 INPUT
 
     my $expected = <<EXPECTED;
@@ -275,6 +277,8 @@ INPUT
 [% var | \$KohaDates with_hours => 1 %]
 [% var | \$KohaDates %]
 [% var | \$KohaDates with_hours => 1 %]
+[% var | \$Price %]
+[% var | \$HtmlTags %]
 EXPECTED
 
     my $new_content = t::lib::QA::TemplateFilters::fix_filters($input);
@@ -297,5 +301,22 @@ EXPECTED
             }
         ]
     );
+};
+
+subtest 'Do not escape TT methods' => sub {
+    plan tests => 2;
+    my $input = <<INPUT;
+[% my_array.push(a_var) %]
+INPUT
 
+    my $expected = <<EXPECTED;
+[% my_array.push(a_var) %]
+EXPECTED
+
+    my $new_content = t::lib::QA::TemplateFilters::fix_filters($input);
+    is( $new_content . "\n", $expected, );
+
+
+    my @missing_filters = t::lib::QA::TemplateFilters::missing_filters($input);
+    is_deeply(\@missing_filters, []);
 };