my @trans_notices_files = qw(
fr-FR/1-Obligatoire/sample_notices.sql
fr-CA/obligatoire/sample_notices.sql
- it-IT/necessari/notices.sql
nb-NO/1-Obligatorisk/sample_notices.sql
- pl-PL/mandatory/sample_notices.sql
- ru-RU/mandatory/sample_notices.sql
- uk-UA/mandatory/sample_notices.sql
);
ok(
open( my $trans_fh,"<", "$root_dir/$trans_file" ),
"Open translated sample notices file $root_dir/$trans_file" );
my $trans_notice = get_notices_from_sql_file( $trans_fh );
- use YAML;
my @trans_notices = sort { lc $a cmp lc $b } keys %$trans_notice;
cmp_ok(
$#trans_notices, '>=', 0,