From 5122c4b1d8e89fcc115f117ba1731834e5d94fdf Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 23 Jun 2008 10:01:33 -0500 Subject: [PATCH] new automated test for template translatability This test verifies that the English OPAC and staff templates can be processed by the string extractor (tmpl_process3.pl) without error. If a template contains a parsing error (at least as far as tmpl_process3.pl is concerned), it may not be correctly converted when a language translation is applied. To run this test, do prove -v xt/author/translatable-templates.t Signed-off-by: Joshua Ferraro --- xt/author/translatable-templates.t | 50 ++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 xt/author/translatable-templates.t diff --git a/xt/author/translatable-templates.t b/xt/author/translatable-templates.t new file mode 100644 index 0000000000..9f3841ddb3 --- /dev/null +++ b/xt/author/translatable-templates.t @@ -0,0 +1,50 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +=head2 translate-templates.t + +This test verifies that all staff and OPAC template +files can be processed by the string extractor +without error; such errors usually indicate a +construct that the extractor cannot parse. + +=cut + +use Test::More tests => 2; +use File::Temp qw/tempdir/; +use IPC::Open3; +use File::Spec; +use Symbol qw(gensym); + +my $po_dir = tempdir(CLEANUP => 1); + +chdir "misc/translator"; # for now, tmpl_process3.pl works only if run from its directory +test_string_extraction("opac", "../../koha-tmpl/opac-tmpl/prog/en", $po_dir); +test_string_extraction("intranet", "../../koha-tmpl/intranet-tmpl/prog/en", $po_dir); + +sub test_string_extraction { + my $module = shift; + my $template_dir = shift; + my $po_dir = shift; + + my $command = "./tmpl_process3.pl create -i $template_dir -s $po_dir/$module.po -r --pedantic-warnings"; + + open (NULL, ">", File::Spec->devnull); + print NULL "foo"; # avoid warning; + my $pid = open3(gensym, ">&NULL", \*PH, $command); + my @warnings; + while () { + # ignore some noise on STDERR + next if /^\.* done\.$/; + next if /^Warning: Can't determine original templates' charset/; + next if /^Warning: Charset Out defaulting to/; + next if /^Removing empty file /; + next if /^I UTF-8 O UTF-8 at /; + push @warnings, $_; + } + waitpid($pid, 0); + + ok($#warnings == -1, "$module templates are translatable") or diag join("\n", @warnings, ''); +} -- 2.39.5