t/misc/translator/xgettext-installer.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use File::Slurp;
   6 use File::Temp qw(tempdir);
   7 use FindBin qw($Bin);
   8 use Locale::PO;
   9 use Test::More tests => 4;
  10
  11 my $tempdir = tempdir(CLEANUP => 1);
  12
  13 write_file("$tempdir/files", "$Bin/sample.yml");
  14
  15 my $xgettext_cmd = "$Bin/../../../misc/translator/xgettext-installer "
  16     . "-o $tempdir/Koha.pot -f $tempdir/files";
  17
  18 system($xgettext_cmd);
  19 my $pot = Locale::PO->load_file_asarray("$tempdir/Koha.pot");
  20
  21 my @expected = (
  22     { msgid => '"Sample installer file"' },
  23     { msgid => '"bar"' },
  24     { msgid => '"baz"' },
  25     { msgid => '"foo ツ"' },
  26 );
  27
  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");
  32 }