Lines 22-28
use Test::More qw(no_plan);
Link Here
|
22 |
|
22 |
|
23 |
|
23 |
|
24 |
my $root_dir = 'installer/data/mysql'; |
24 |
my $root_dir = 'installer/data/mysql'; |
25 |
my $base_notices_file = "en/mandatory/sample_notices.sql"; |
25 |
my $base_notices_file = "en/mandatory/sample_notices.yml"; |
26 |
my @trans_notices_files = qw( |
26 |
my @trans_notices_files = qw( |
27 |
fr-FR/1-Obligatoire/sample_notices.sql |
27 |
fr-FR/1-Obligatoire/sample_notices.sql |
28 |
fr-CA/obligatoire/sample_notices.sql |
28 |
fr-CA/obligatoire/sample_notices.sql |
Lines 38-44
my @trans_notices_files = qw(
Link Here
|
38 |
ok( |
38 |
ok( |
39 |
open( my $ref_fh, "<", "$root_dir/$base_notices_file" ), |
39 |
open( my $ref_fh, "<", "$root_dir/$base_notices_file" ), |
40 |
"Open reference sample notices file $root_dir/$base_notices_file" ); |
40 |
"Open reference sample notices file $root_dir/$base_notices_file" ); |
41 |
my $ref_notice = get_notices_from_file( $ref_fh ); |
41 |
my $ref_notice = get_notices_from_yml_file( $ref_fh ); |
42 |
my @ref_notices = sort { lc $a cmp lc $b } keys %$ref_notice; |
42 |
my @ref_notices = sort { lc $a cmp lc $b } keys %$ref_notice; |
43 |
cmp_ok( |
43 |
cmp_ok( |
44 |
$#ref_notices, '>=', 0, |
44 |
$#ref_notices, '>=', 0, |
Lines 53-59
foreach my $file_name ( @trans_notices_files ) {
Link Here
|
53 |
# Get sample notices from SQL file populating letters table with INSERT |
53 |
# Get sample notices from SQL file populating letters table with INSERT |
54 |
# statement. |
54 |
# statement. |
55 |
# |
55 |
# |
56 |
sub get_notices_from_file { |
56 |
sub get_notices_from_sql_file { |
57 |
my $fh = shift; |
57 |
my $fh = shift; |
58 |
my %notice; |
58 |
my %notice; |
59 |
while ( <$fh> ) { |
59 |
while ( <$fh> ) { |
Lines 62-67
sub get_notices_from_file {
Link Here
|
62 |
} |
62 |
} |
63 |
return \%notice; |
63 |
return \%notice; |
64 |
} |
64 |
} |
|
|
65 |
sub get_notices_from_yml_file { |
66 |
my $fh = shift; |
67 |
my %notice; |
68 |
while ( <$fh> ) { |
69 |
next unless /^\s+code:\s([\_A-Z_]*)$/; |
70 |
$notice{$1} = 1; |
71 |
} |
72 |
return \%notice; |
73 |
} |
74 |
|
65 |
|
75 |
|
66 |
|
76 |
|
67 |
sub compare_notices { |
77 |
sub compare_notices { |
Lines 69-75
sub compare_notices {
Link Here
|
69 |
ok( |
79 |
ok( |
70 |
open( my $trans_fh,"<", "$root_dir/$trans_file" ), |
80 |
open( my $trans_fh,"<", "$root_dir/$trans_file" ), |
71 |
"Open translated sample notices file $root_dir/$trans_file" ); |
81 |
"Open translated sample notices file $root_dir/$trans_file" ); |
72 |
my $trans_notice = get_notices_from_file( $trans_fh ); |
82 |
my $trans_notice = get_notices_from_sql_file( $trans_fh ); |
73 |
use YAML; |
83 |
use YAML; |
74 |
my @trans_notices = sort { lc $a cmp lc $b } keys %$trans_notice; |
84 |
my @trans_notices = sort { lc $a cmp lc $b } keys %$trans_notice; |
75 |
cmp_ok( |
85 |
cmp_ok( |
76 |
- |
|
|