|
Lines 74-80
is( scalar @$pot, 4, 'xgettext.pl generated a POT file' );
Link Here
|
| 74 |
|
74 |
|
| 75 |
my $pot_content = read_file("$tempdir/Koha.pot"); |
75 |
my $pot_content = read_file("$tempdir/Koha.pot"); |
| 76 |
$pot_content =~ |
76 |
$pot_content =~ |
| 77 |
s|msgid "Don't use TT directives if another attribute is translatable"\nmsgstr ""|msgid "Don't use TT directives if another attribute is translatable"\nmsgstr "Ne pas utiliser TT si un autre attribut est traduisible"|gms; |
77 |
s|msgid "Don't use TT directives if another attribute is translatable"\nmsgstr ""|msgid "Don't use TT directives if another attribute is translatable"\nmsgstr "Ne pas utiliser TT si un autre 'attribute' est traduisible"|gms; |
| 78 |
$pot_content =~ s|msgid "Will be translated"\nmsgstr ""|msgid "Will be translated"\nmsgstr "Ceci sera traduit"|gms; |
78 |
$pot_content =~ s|msgid "Will be translated"\nmsgstr ""|msgid "Will be translated"\nmsgstr "Ceci sera traduit"|gms; |
| 79 |
write_file( "$tempdir/Koha.pot", $pot_content ); |
79 |
write_file( "$tempdir/Koha.pot", $pot_content ); |
| 80 |
|
80 |
|
|
Lines 84-90
my $install_cmd =
Link Here
|
| 84 |
system($install_cmd); |
84 |
system($install_cmd); |
| 85 |
|
85 |
|
| 86 |
my $content = read_file("$tempdir_fr/tt/en/sample-not-working-2.tt"); |
86 |
my $content = read_file("$tempdir_fr/tt/en/sample-not-working-2.tt"); |
| 87 |
like( $content, qr{Ne pas utiliser TT si un autre attribut est traduisible} ); |
87 |
like( $content, qr{Ne pas utiliser TT si un autre 'attribute' est traduisible} ); |
| 88 |
like( $content, qr{Ceci sera traduit} ); |
88 |
like( $content, qr{Ceci sera traduit} ); |
| 89 |
|
89 |
|
| 90 |
# So far so good, but #FIXME: |
90 |
# So far so good, but #FIXME: |