- only own parent dir and let rpm find content

1 files changed, 6 insertions, 4 deletions

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 ||= '';