2008-06-06 05:53:14 +02:00
|
|
|
# Lemonldap::NG::Manager translation test
|
|
|
|
#
|
|
|
|
# Here, we test :
|
|
|
|
# 1) each keyword is translated in each language
|
|
|
|
# 2) display functions in english language
|
2007-06-24 11:23:14 +02:00
|
|
|
|
2008-06-06 05:53:14 +02:00
|
|
|
BEGIN {
|
|
|
|
our %lang = (
|
|
|
|
en => 'English',
|
|
|
|
fr => 'French',
|
|
|
|
);
|
2009-12-11 19:17:00 +01:00
|
|
|
require Test::More;
|
2010-04-30 07:27:06 +02:00
|
|
|
Test::More->import( tests => ( scalar keys(%lang) ) );
|
2008-06-06 05:53:14 +02:00
|
|
|
}
|
|
|
|
|
2009-12-11 19:17:00 +01:00
|
|
|
use_ok('Lemonldap::NG::Manager::_i18n');
|
2008-06-06 05:53:14 +02:00
|
|
|
|
|
|
|
foreach ( keys %lang ) {
|
|
|
|
ok( &compare( "en", $_ ),
|
|
|
|
"Compare English and $lang{$_} translation coverage" )
|
|
|
|
unless ( $_ eq 'en' );
|
|
|
|
}
|
|
|
|
|
|
|
|
$ENV{SCRIPT_NAME} = "__SCRIPTNAME__";
|
|
|
|
$ENV{SCRIPT_FILENAME} = $0;
|
|
|
|
$ENV{HTTP_ACCEPT_LANGUAGE} = 'en';
|
|
|
|
my $h;
|
|
|
|
@ARGV = ("help=groups");
|
2007-06-24 11:23:14 +02:00
|
|
|
|
|
|
|
sub compare {
|
|
|
|
my ( $l1, $l2 ) = @_;
|
2008-06-06 05:53:14 +02:00
|
|
|
$r1 = &{ "Lemonldap::NG::Manager::_i18n::" . $l1 };
|
|
|
|
$r2 = &{ "Lemonldap::NG::Manager::_i18n::" . $l2 };
|
2007-06-24 11:23:14 +02:00
|
|
|
my $r = 1;
|
|
|
|
foreach ( keys %$r1 ) {
|
2008-06-06 05:53:14 +02:00
|
|
|
unless ( $r2->{$_} ) {
|
2007-06-24 11:23:14 +02:00
|
|
|
print STDERR "$_ is present in $l1 but miss in $l2";
|
2008-06-06 05:53:14 +02:00
|
|
|
$r = 0;
|
2007-06-24 11:23:14 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
foreach ( keys %$r2 ) {
|
2008-06-06 05:53:14 +02:00
|
|
|
unless ( $r1->{$_} ) {
|
2007-06-24 11:23:14 +02:00
|
|
|
print STDERR "$_ is present in $l2 but miss in $l1";
|
2008-06-06 05:53:14 +02:00
|
|
|
$r = 0;
|
2007-06-24 11:23:14 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
return $r;
|
|
|
|
}
|