diff options
author | Neal Gompa <ngompa13@gmail.com> | 2017-07-30 18:50:22 -0400 |
---|---|---|
committer | Neal Gompa <ngompa13@gmail.com> | 2017-07-30 18:50:22 -0400 |
commit | fa83599987fc8aed33c3cfc25eaec1fa371b606c (patch) | |
tree | 0eb952cde0ca57de156a99e05bbb78d2fbe58eea /tests | |
parent | 574eace7cad124e7602b69b76b6e2fb26da9630e (diff) | |
download | rpm-setup-fa83599987fc8aed33c3cfc25eaec1fa371b606c.tar rpm-setup-fa83599987fc8aed33c3cfc25eaec1fa371b606c.tar.gz rpm-setup-fa83599987fc8aed33c3cfc25eaec1fa371b606c.tar.bz2 rpm-setup-fa83599987fc8aed33c3cfc25eaec1fa371b606c.tar.xz rpm-setup-fa83599987fc8aed33c3cfc25eaec1fa371b606c.zip |
Remove find-lang.pl in favor of using upstream find-lang.sh
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/findlang.pl | 44 | ||||
-rwxr-xr-x | tests/findlang.sh | 12 |
2 files changed, 0 insertions, 56 deletions
diff --git a/tests/findlang.pl b/tests/findlang.pl deleted file mode 100755 index d601728..0000000 --- a/tests/findlang.pl +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Test::More qw(no_plan); - -my $pwd = `pwd`; -chomp($pwd); -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/locale/pt_BR' => [ 'pt_BR', 1 ], - '/usr/share/gnome/help/lang/pt_BR' => [ 'pt_BR', 1 ], - '/usr/share/gnome/help/lang/pt_BR/any.html' => [ 'pt_BR', 0 ], - '/usr/share/gnome/help/lang/en_GB' => [ 'en_GB', 1 ], - '/usr/share/gnome/help/lang/en_GB/any.html' => [ 'en_GB', 0 ], - '/usr/share/gnome/help/lang' => [ '', 1 ], - '/usr/share/locale/pt_BR/LC_MESSAGES' => [ 'pt_BR', 1 ], - '/usr/share/locale/pt_BR/LC_MESSAGES/lang.mo' => [ 'pt_BR', 0 ], -); - -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 ||= ''; - my $dir = $line =~ /%dir/; - $dir ||= 0; - print STDERR "$file\n"; - is($lang, $files{$file}[0], "lang is find"); - is($dir, $files{$file}[1], "%dir is properly set if need"); -} - diff --git a/tests/findlang.sh b/tests/findlang.sh deleted file mode 100755 index fb7110a..0000000 --- a/tests/findlang.sh +++ /dev/null @@ -1,12 +0,0 @@ -#!/bin/sh - -rm -fr find-lang-root -for file in \ - find-lang-root/usr/share/man/fr/man1/lang.1.lzma \ - find-lang-root/usr/share/locale/pt_BR/LC_MESSAGES/lang.mo \ - find-lang-root/usr/share/gnome/help/lang/pt_BR/any.html \ - find-lang-root/usr/share/gnome/help/lang/en_GB/any.html -do install -D Makefile $file -done - -exec perl tests/findlang.pl |