1#! /bin/sh 2 3# Test of gettext facilities in the Perl language, 4# using brace format strings. 5# Assumes an fr_FR locale is installed. 6# Assumes the following packages are installed: perl, libintl-perl. 7 8tmpfiles="" 9trap 'rm -fr $tmpfiles' 1 2 3 15 10 11tmpfiles="$tmpfiles program.pl" 12cat <<\EOF > program.pl 13use Locale::TextDomain (prog => './'); 14my $n = 2; 15print __"'Your command, please?', asked the waiter."; 16print "\n"; 17printf __n ("a piece of cake", "%d pieces of cake", $n), $n; 18print "\n"; 19printf __x ("{old} is replaced by {new}.", old => "FF", new => "EUR"); 20print "\n"; 21EOF 22 23tmpfiles="$tmpfiles prog.tmp prog.pot" 24: ${XGETTEXT=xgettext} 25${XGETTEXT} \ 26 -k__ --flag=__:1:pass-perl-format --flag=__:1:pass-perl-brace-format \ 27 -k__n:1,2 --flag=__n:1:pass-perl-format --flag=__n:1:pass-perl-brace-format \ 28 --flag=__n:2:pass-perl-format --flag=__n:2:pass-perl-brace-format \ 29 -k__x --flag=__x:1:perl-brace-format \ 30 -o prog.tmp --omit-header --no-location program.pl 31test $? = 0 || { rm -fr $tmpfiles; exit 1; } 32tr -d '\r' < prog.tmp > prog.pot 33test $? = 0 || { rm -fr $tmpfiles; exit 1; } 34 35tmpfiles="$tmpfiles prog.ok" 36cat <<EOF > prog.ok 37msgid "'Your command, please?', asked the waiter." 38msgstr "" 39 40#, perl-format 41msgid "a piece of cake" 42msgid_plural "%d pieces of cake" 43msgstr[0] "" 44msgstr[1] "" 45 46#, perl-brace-format 47msgid "{old} is replaced by {new}." 48msgstr "" 49EOF 50 51: ${DIFF=diff} 52${DIFF} prog.ok prog.pot || exit 1 53 54tmpfiles="$tmpfiles fr.po" 55cat <<\EOF > fr.po 56msgid "" 57msgstr "" 58"Content-Type: text/plain; charset=ISO-8859-1\n" 59"Plural-Forms: nplurals=2; plural=(n > 1);\n" 60 61msgid "'Your command, please?', asked the waiter." 62msgstr "�Votre commande, s'il vous plait�, dit le gar�on." 63 64# Les gateaux allemands sont les meilleurs du monde. 65#, perl-format 66msgid "a piece of cake" 67msgid_plural "%d pieces of cake" 68msgstr[0] "un morceau de gateau" 69msgstr[1] "%d morceaux de gateau" 70 71# Reverse the arguments. 72#, perl-brace-format 73msgid "{old} is replaced by {new}." 74msgstr "{new} remplace {old}." 75EOF 76 77tmpfiles="$tmpfiles fr.po.tmp fr.po.new" 78: ${MSGMERGE=msgmerge} 79${MSGMERGE} -q -o fr.po.tmp fr.po prog.pot 80test $? = 0 || { rm -fr $tmpfiles; exit 1; } 81tr -d '\r' < fr.po.tmp > fr.po.new 82test $? = 0 || { rm -fr $tmpfiles; exit 1; } 83 84: ${DIFF=diff} 85${DIFF} fr.po fr.po.new || exit 1 86 87tmpfiles="$tmpfiles fr" 88test -d fr || mkdir fr 89test -d fr/LC_MESSAGES || mkdir fr/LC_MESSAGES 90 91: ${MSGFMT=msgfmt} 92${MSGFMT} -o fr/LC_MESSAGES/prog.mo fr.po 93 94tmpfiles="$tmpfiles prog.ok prog.oku prog.out" 95: ${DIFF=diff} 96cat <<\EOF > prog.ok 97�Votre commande, s'il vous plait�, dit le gar�on. 982 morceaux de gateau 99EUR remplace FF. 100EOF 101cat <<\EOF > prog.oku 102��Votre commande, s'il vous plait��, dit le gar��on. 1032 morceaux de gateau 104EUR remplace FF. 105EOF 106 107# Test for perl with libintl-perl package. 108perl -M'Locale::TextDomain' -e '' 2>/dev/null \ 109 || { echo "Skipping test: perl package libintl-perl is not installed" 110 rm -fr $tmpfiles; exit 77 111 } 112 113: ${LOCALE_FR=fr_FR} 114: ${LOCALE_FR_UTF8=fr_FR.UTF-8} 115if test $LOCALE_FR != none; then 116 LANGUAGE= LANG=$LOCALE_FR LC_MESSAGES= LC_CTYPE= LC_ALL= perl program.pl > prog.out || exit 1 117 ${DIFF} prog.ok prog.out || exit 1 118fi 119if test $LOCALE_FR_UTF8 != none; then 120 LANGUAGE= LANG=$LOCALE_FR_UTF8 LC_MESSAGES= LC_CTYPE= LC_ALL= perl program.pl > prog.out || exit 1 121 ${DIFF} prog.oku prog.out || exit 1 122fi 123if test $LOCALE_FR = none && test $LOCALE_FR_UTF8 = none; then 124 if test -f /usr/bin/localedef; then 125 echo "Skipping test: no french locale is installed" 126 else 127 echo "Skipping test: no french locale is supported" 128 fi 129 rm -fr $tmpfiles; exit 77 130fi 131 132rm -fr $tmpfiles 133 134exit 0 135