Imported Upstream version 0.19.7

[platform/upstream/gettext.git] / gettext-tools / tests / xgettext-perl-6

diff --git a/gettext-tools/tests/xgettext-perl-6 b/gettext-tools/tests/xgettext-perl-6
index 02b9820..2347b11 100755 (executable)
--- a/gettext-tools/tests/xgettext-perl-6
+++ b/gettext-tools/tests/xgettext-perl-6
@@ -1,11 +1,8 @@
 #! /bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
 
 # Test whether the right number of arguments are extracted.
 
-tmpfiles=""
-trap 'rm -fr $tmpfiles' 1 2 3 15
-
-tmpfiles="$tmpfiles xg-pl-6.pl"
 cat <<\EOPERL > xg-pl-6.pl
 use strict;
 
@@ -66,15 +63,11 @@ print dgettext foo (17), "extracted15";
 print dgettext foo 17, "extracted16";
 EOPERL
 
-tmpfiles="$tmpfiles xg-pl-6.tmp xg-pl-6.pot"
 : ${XGETTEXT=xgettext}
 LC_MESSAGES=C LC_ALL= \
-${XGETTEXT} --omit-header --no-location -o xg-pl-6.tmp xg-pl-6.pl
-test $? = 0 || { rm -fr $tmpfiles; exit 1; }
-LC_ALL=C tr -d '\r' < xg-pl-6.tmp > xg-pl-6.pot
-test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+${XGETTEXT} --omit-header --no-location -o xg-pl-6.tmp xg-pl-6.pl || exit 1
+LC_ALL=C tr -d '\r' < xg-pl-6.tmp > xg-pl-6.pot || exit 1
 
-tmpfiles="$tmpfiles xg-pl-6.ok"
 cat <<\EOF > xg-pl-6.ok
 msgid "extracted1"
 msgstr ""
@@ -129,6 +122,4 @@ EOF
 ${DIFF} xg-pl-6.ok xg-pl-6.pot
 result=$?
 
-rm -fr $tmpfiles
-
 exit $result