gnu/dist/gettext/gettext-tools/tests/xgettext-perl-4

   1 #! /bin/sh
   2
   3 # Tests for the general string extraction facilities of the Perl backend
   4 # (with option --extract-all).
   5
   6 tmpfiles=""
   7 trap 'rm -fr $tmpfiles' 1 2 3 15
   8
   9 tmpfiles="$tmpfiles xg-pl-4.pl"
  10 cat <<\EOPERL > xg-pl-4.pl
  11 use strict;
  12
  13 # A double quoted string.
  14 print "'Your command, please?', asked the waiter.\n";
  15 # A double quoted string with interpolations.
  16 my $polite = 'please';
  17 print "'Your recommendation, $polite?', answered the guest.\n";
  18 # A reference.
  19 my $ref1 = \$polite;
  20 my $ref2 = \$ref1;
  21 my $ref3 = \$ref2;
  22 print "Yes, $$$$ref3!\n";
  23 # The qq operator and some of the more esoteric string interpolation
  24 # features of Perl.
  25 print (qq {\uU\lp \LaNd\E \ldo\lWn, \Uoh\E, yeah\Q!!!\E\\!\n});
  26 # The q operator.
  27 print q<E-Mail: <no@spam.org>.  >;
  28 # Should not be found.
  29 { $polite =~ qr?le? }
  30
  31 # List interpolation.
  32 print "Your Perl include path starts with '$INC[0]' and it " .
  33       "ends with '$INC[-1]'.  $#INC directories are searched.\n";
  34 # Here documents.
  35 print <<EOF, <<'EOF';
  36 Line 1\nLine 2
  37 EOF
  38 Line 1\nStill line 1
  39 EOF
  40 # Perl code inside strings.
  41 sub hello_func { return 'Hello' };
  42 print "@{[hello_func]} world!\n";
  43 # Backticks.
  44 print `ls $0`;
  45 print qx;ls $0;;
  46
  47 if (!defined($size = -s $filename)) {
  48   # The above s is part of the function -s, not
  49   # the substitution operator!
  50 }
  51
  52 # The rest requires a Unicode aware Perl.
  53 require 5.006;
  54 print "\U\x70\LO\154\x{69}\x{004E}a \Q\lRu\LLeS\E\041\n";
  55 # FIXME: The following should actually produce 'Polina4ka' in cyrillic letters.
  56 #print "\u\x{43f}\L\x{41E}\x{43b}\x{418}\E\x{43d}" .
  57 #      "\x{430}\x{447}\x{43a}\x{430}\n";
  58 EOPERL
  59
  60 tmpfiles="$tmpfiles xg-pl-4.pot"
  61 : ${XGETTEXT=xgettext}
  62 LC_MESSAGES=C LC_ALL= \
  63 ${XGETTEXT} -a --omit-header --no-location -o xg-pl-4.pot xg-pl-4.pl
  64 test $? = 0 || { rm -fr $tmpfiles; exit 1; }
  65
  66 tmpfiles="$tmpfiles xg-pl-4.ok"
  67 cat <<\EOF > xg-pl-4.ok
  68 msgid "'Your command, please?', asked the waiter.\n"
  69 msgstr ""
  70
  71 msgid "please"
  72 msgstr ""
  73
  74 msgid "'Your recommendation, $polite?', answered the guest.\n"
  75 msgstr ""
  76
  77 msgid "Yes, $$$$ref3!\n"
  78 msgstr ""
  79
  80 msgid "Up and down, OH, yeah\\!\\!\\!\\!\n"
  81 msgstr ""
  82
  83 msgid "E-Mail: <no@spam.org>.  "
  84 msgstr ""
  85
  86 msgid ""
  87 "Your Perl include path starts with '$INC[0]' and it ends with '$INC[-1]'.  "
  88 "$#INC directories are searched.\n"
  89 msgstr ""
  90
  91 msgid ""
  92 "Line 1\n"
  93 "Line 2\n"
  94 msgstr ""
  95
  96 msgid "Line 1\\nStill line 1\n"
  97 msgstr ""
  98
  99 msgid "Hello"
 100 msgstr ""
 101
 102 msgid "@{[hello_func]} world!\n"
 103 msgstr ""
 104
 105 msgid "ls $0"
 106 msgstr ""
 107
 108 msgid "Polina rules!\n"
 109 msgstr ""
 110 EOF
 111
 112 : ${DIFF=diff}
 113 ${DIFF} xg-pl-4.ok xg-pl-4.pot
 114 result=$?
 115
 116 rm -fr $tmpfiles
 117
 118 exit $result