From eaa71f3c7c7b485c5baa3e205eb95f81a88eda15 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Fri, 24 Aug 2007 16:51:40 +0000 Subject: - only own parent dir and let rpm find content --- tests/findlang.pl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'tests/findlang.pl') diff --git a/tests/findlang.pl b/tests/findlang.pl index 58dfa52..12deb62 100644 --- a/tests/findlang.pl +++ b/tests/findlang.pl @@ -12,17 +12,19 @@ my $testarbo = "$pwd/find-lang-root"; my %files = ( # file => [ lang, is_dir ] - '/usr/share/man/fr' => [ 'fr', 1 ], - '/usr/share/man/fr/man1' => [ 'fr', 1 ], - '/usr/share/man/fr/man1/lang.1.*' => [ 'fr', 0 ], + '/usr/share/man/fr' => [ 'fr', 0 ], + '/usr/share/locale/pt_BR' => [ 'pt_BR', 0 ], + '/usr/share/gnome/help/lang/pt_BR' => [ 'pt_BR', 0 ], + '/usr/share/gnome/help/lang' => [ '', 1 ], ); -system("/usr/bin/perl find-lang.pl $testarbo lang --with-man") and die "can't run find-lang $@"; +system("/usr/bin/perl find-lang.pl $testarbo lang --with-man --with-gnome") and die "can't run find-lang $@"; open(my $h, '<', 'lang.lang') or die "can't open lang.lang"; while (my $line = <$h>) { chomp($line); + $line =~ /svn/ and next; my ($file) = $line =~ / ([^ ]+)$/; my ($lang) = $line =~ /%lang\(([^\)]+)\)/; $lang ||= ''; -- cgit v1.2.1