6 use File::Temp qw(tempdir);
9 use Test::More tests => 4;
11 my $tempdir = tempdir(CLEANUP => 1);
13 write_file("$tempdir/files", "$Bin/sample.yml");
15 my $xgettext_cmd = "$Bin/../../../misc/translator/xgettext-installer "
16 . "-o $tempdir/Koha.pot -f $tempdir/files";
18 system($xgettext_cmd);
19 my $pot = Locale::PO->load_file_asarray("$tempdir/Koha.pot");
22 { msgid => '"Sample installer file"' },
25 { msgid => '"foo ツ"' },
28 for (my $i = 0; $i < @expected; $i++) {
29 my $expected = $expected[$i]->{msgid};
30 my $expected_str = defined $expected ? $expected : 'not defined';
31 is($pot->[$i + 1]->msgid, $expected, "$i: msgid is $expected_str");