File Coverage

blib/lib/Test/Locale/PO.pm

Criterion	Covered	Total	%
statement	37	43	86.0
branch	12	16	75.0
condition	10	15	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	65	80	81.2

package Test::Locale::PO;
# ABSTRACT: check PO files for empty/fuzzy translations

use strict;
use warnings;
our $VERSION = '1.02'; # VERSION

use base 'Test::Builder::Module';

our @EXPORT = qw( po_file_ok );

use Locale::PO;

my $CLASS = __PACKAGE__;

sub po_file_ok {
	my $file = shift;
	my $opts = { empty => 1, fuzzy => 1, @_ };
	my $tb = $CLASS->builder;

	if( ! -f $file ) {
		$tb->ok(0, $file.' does not exist!');
		return;
	}

	my $content;
	eval {
		$content = Locale::PO->load_file_asarray( $file );
	};
	if( $@ ) {
	       $tb->ok(0, 'could not load PO file!');
	       return;
	}
	if( scalar(@$content) == 0 ) {
	       $tb->ok(0, 'PO file has no entries!');
	       return;
       }

	my @no_msgstr;
	my @fuzzy;
	foreach my $po ( @$content ) {
		if( $opts->{'empty'} ) {
			# check for a simple translation
			if ( defined $po->msgstr && $po->msgstr !~ m/^["\- ]*$/ ) {
			}
			# check if plurals are involved
			elsif( defined $po->msgid_plural
					&& defined $po->msgstr_n->{"0"}
					&& $po->msgstr_n->{"0"} !~ m/^["\- ]*$/ ) {
			} else {
				push( @no_msgstr, $po );
			}
		}
		if( $opts->{'fuzzy'} && $po->has_flag('fuzzy') ) {
			push( @fuzzy, $po );
		}
	}

	if( scalar(@no_msgstr) != 0 || scalar(@fuzzy) != 0 ) {
		$tb->ok(0, 'check PO file '.$file.' for errors');
		foreach my $po ( @no_msgstr ) {
			$tb->diag('no translation for '.$po->msgid.' on line '.$po->loaded_line_number);
		}
		foreach my $po ( @fuzzy ) {
			$tb->diag('fuzzy translation for '.$po->msgid.' on line '.$po->loaded_line_number);
		}
		return;
	}

	$tb->ok(1, 'PO file '.$file.' is okay');
	return;
}

1;

__END__