summaryrefslogtreecommitdiff
path: root/tests/misc
diff options
context:
space:
mode:
Diffstat (limited to 'tests/misc')
-rwxr-xr-xtests/misc/pwd-long4
-rwxr-xr-xtests/misc/sum-sysv5
2 files changed, 3 insertions, 6 deletions
diff --git a/tests/misc/pwd-long b/tests/misc/pwd-long
index e31845796..bf088fb38 100755
--- a/tests/misc/pwd-long
+++ b/tests/misc/pwd-long
@@ -17,13 +17,11 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-: ${srcdir=.}
-. $srcdir/require-perl
-
. "${srcdir=.}/init.sh"; path_prepend_ ../src
print_ver_ pwd
require_readable_root_
+require_perl_
ARGV_0=$0
export ARGV_0
diff --git a/tests/misc/sum-sysv b/tests/misc/sum-sysv
index 0e35ad319..f4d6a18ed 100755
--- a/tests/misc/sum-sysv
+++ b/tests/misc/sum-sysv
@@ -16,9 +16,6 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-: ${srcdir=.}
-. $srcdir/require-perl
-
# Avoid a problem when run in a UTF-8 locale.
# Otherwise, Perl would try to (and fail to) interpret
# each string below as a sequence of multi-byte characters.
@@ -28,6 +25,8 @@ export LC_ALL
. "${srcdir=.}/init.sh"; path_prepend_ ../src
print_ver_ sum
+require_perl_
+
# FYI, 16843009 is floor (2^32 / 255).
# aka: perl -e 'print chr(255) x 16843009'