From 9d80e5fb2b472e0908d1f52ac11dea4731c30dc2 Mon Sep 17 00:00:00 2001 From: Bernardo Gonzalez Kriegel Date: Sat, 28 May 2016 00:09:20 -0300 Subject: [PATCH] Bug 16554: DO NOT PUSH - (followup) - sorted filenames Filenames must be loaded in alphabetical order. Signed-off-by: Mark Tompsett --- t/db_dependent/Test_installer.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Test_installer.t b/t/db_dependent/Test_installer.t index 00f3a44..ec8ba33 100644 --- a/t/db_dependent/Test_installer.t +++ b/t/db_dependent/Test_installer.t @@ -30,12 +30,13 @@ for my $lang ( qw ( de-DE en es-ES fr-CA fr-FR it-IT nb-NO pl-PL ru-RU uk-UA ) ) say "loading kohastructure for $lang | not $marcflavour"; recreate_db( $db_name ); my $error = C4::Installer->new->load_sql( $kohastructure ); - my @sample_files = @global_files; + my @sample_files; find( sub { push @sample_files, $File::Find::name if $_ =~ m|\.sql$|; - }, $sample_dir . '/' . $lang . '/' + }, $sample_dir . $lang . '/' ); + @sample_files = ( @global_files, sort @sample_files ); my $i = 1; for my $sql_file ( @sample_files ) { print $i++ . "/" . scalar @sample_files . "\r"; flush STDOUT; -- 2.7.4