c066a8ca2f
It seems that the id's are not really used, but rather
the subtags, types, and language related fields.
These tests check for duplicates.
TEST PLAN
---------
1) Apply both patches
2) prove -v t/db_dependent/Languages.t
-- may fail if you have duplicates.
3) ./installer/data/mysql/updatedatabase.pl
-- this will trigger the atomicupdate, which because of
this tweak, will correct duplicates.
4) prove -v t/db_dependent/Languages.t
-- should succeed.
5) Run the updatedatabase.pl script multiple times.
6) prove -v t/db_dependent/Languages.t
-- should still succeed.
7) koha qa test tools.
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
No koha-qa errors, test run successfully, no more duplicates
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Fixed German description.
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
93 lines
3.5 KiB
Perl
Executable file
93 lines
3.5 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# This Koha test module is a stub!
|
|
# Add more tests here!!!
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 16;
|
|
use List::Util qw(first);
|
|
use Data::Dumper;
|
|
use Test::Warn;
|
|
|
|
BEGIN {
|
|
use_ok('C4::Languages');
|
|
}
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
$dbh->{AutoCommit} = 0;
|
|
$dbh->{RaiseError} = 1;
|
|
|
|
isnt(C4::Languages::_get_themes(), undef, 'testing _get_themes doesnt return undef');
|
|
|
|
ok(C4::Languages::_get_language_dirs(), 'test getting _get_language_dirs');
|
|
|
|
is(C4::Languages::accept_language(),undef, 'test that accept_languages returns undef when nothing is entered');
|
|
|
|
ok(C4::Languages::getAllLanguages(), 'test get all languages');
|
|
|
|
C4::Context->set_preference('AdvancedSearchLanguages', '');
|
|
my $all_languages = C4::Languages::getAllLanguages('eng');
|
|
ok(@$all_languages > 10, 'retrieved a bunch of languges');
|
|
|
|
my $languages = C4::Languages::getLanguages('eng');
|
|
is_deeply($languages, $all_languages, 'getLanguages() and getAllLanguages() return the same list');
|
|
|
|
$languages = C4::Languages::getLanguages('eng', 1);
|
|
is_deeply($languages, $all_languages, 'getLanguages() and getAllLanguages() with filtering selected but AdvancedSearchLanguages blank return the same list');
|
|
|
|
C4::Context->set_preference('AdvancedSearchLanguages', 'ita|eng');
|
|
$languages = C4::Languages::getLanguages('eng', 1);
|
|
is(scalar(@$languages), 2, 'getLanguages() filtering using AdvancedSearchLanguages works');
|
|
|
|
my $translatedlanguages1;
|
|
warnings_are { $translatedlanguages1 = C4::Languages::getTranslatedLanguages('opac','prog',undef,'') }
|
|
[],
|
|
'no warnings for calling getTranslatedLanguages';
|
|
my @currentcheck1 = map { $_->{current} } @$translatedlanguages1;
|
|
my $onlyzeros = first { $_ != 0 } @currentcheck1;
|
|
ok(! $onlyzeros, "Everything was zeros.\n");
|
|
|
|
my $translatedlanguages2;
|
|
warnings_are { $translatedlanguages2 = C4::Languages::getTranslatedLanguages('opac','prog','en','') }
|
|
[],
|
|
'no warnings for calling getTranslatedLanguages';
|
|
my @currentcheck2 = map { $_->{current} } @$translatedlanguages2;
|
|
$onlyzeros = first { $_ != 0 } @currentcheck2;
|
|
ok($onlyzeros, "There is a $onlyzeros\n");
|
|
|
|
# Language Descriptions
|
|
my $sth = $dbh->prepare("SELECT DISTINCT subtag,type,lang,description from language_descriptions;");
|
|
$sth->execute();
|
|
my $DistinctLangDesc = $sth->fetchall_arrayref({});
|
|
|
|
$sth = $dbh->prepare("SELECT subtag,type,lang,description from language_descriptions;");
|
|
$sth->execute();
|
|
my $LangDesc = $sth->fetchall_arrayref({});
|
|
|
|
is(scalar(@$LangDesc),scalar(@$DistinctLangDesc),"No unexpected language_description duplicates.");
|
|
|
|
# Language_subtag_registry
|
|
$sth = $dbh->prepare("SELECT DISTINCT subtag,type,description,added FROM language_subtag_registry;");
|
|
$sth->execute();
|
|
my $DistinctLangReg = $sth->fetchall_arrayref({});
|
|
|
|
$sth = $dbh->prepare("SELECT subtag,type,description,added FROM language_subtag_registry;");
|
|
$sth->execute();
|
|
my $LangReg = $sth->fetchall_arrayref({});
|
|
|
|
is(scalar(@$LangReg),scalar(@$DistinctLangReg),"No unexpected language_subtag_registry duplicates.");
|
|
|
|
# Language RFC4646 to ISO639
|
|
$sth = $dbh->prepare("SELECT DISTINCT rfc4646_subtag,iso639_2_code FROM language_rfc4646_to_iso639;");
|
|
$sth->execute();
|
|
my $DistinctLangRfc4646 = $sth->fetchall_arrayref({});
|
|
|
|
$sth = $dbh->prepare("SELECT rfc4646_subtag,iso639_2_code FROM language_rfc4646_to_iso639;");
|
|
$sth->execute();
|
|
my $LangRfc4646 = $sth->fetchall_arrayref({});
|
|
|
|
is(scalar(@$LangRfc4646),scalar(@$DistinctLangRfc4646),"No unexpected language_rfc4646_to_iso639 duplicates.");
|
|
|
|
$dbh->rollback;
|