From c51900a6bd655e7dd596fa6888a0e521e6b5a6bd Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Fri, 18 Apr 2008 16:51:34 +0200
Subject: [PATCH] tests: adjust perl -I to use $top_srcdir/tests, not
 $srcdir/..

---
 tests/dd/skip-seek         | 2 +-
 tests/du/files0-from       | 2 +-
 tests/misc/base64          | 2 +-
 tests/misc/basename        | 2 +-
 tests/misc/cut             | 2 +-
 tests/misc/date            | 2 +-
 tests/misc/dircolors       | 2 +-
 tests/misc/dirname         | 2 +-
 tests/misc/expand          | 2 +-
 tests/misc/expr            | 2 +-
 tests/misc/factor          | 2 +-
 tests/misc/fmt             | 2 +-
 tests/misc/fold            | 2 +-
 tests/misc/head-elide-tail | 2 +-
 tests/misc/ls-misc         | 2 +-
 tests/misc/md5sum          | 2 +-
 tests/misc/md5sum-newline  | 2 +-
 tests/misc/mktemp          | 2 +-
 tests/misc/od              | 2 +-
 tests/misc/paste           | 2 +-
 tests/misc/pr              | 2 +-
 tests/misc/seq             | 2 +-
 tests/misc/sha1sum         | 2 +-
 tests/misc/sha1sum-vec     | 2 +-
 tests/misc/sha224sum       | 2 +-
 tests/misc/sha256sum       | 2 +-
 tests/misc/sha384sum       | 2 +-
 tests/misc/sha512sum       | 2 +-
 tests/misc/sort-merge      | 2 +-
 tests/misc/stat-printf     | 2 +-
 tests/misc/sum             | 2 +-
 tests/misc/test-diag       | 2 +-
 tests/misc/tsort           | 2 +-
 tests/misc/unexpand        | 2 +-
 tests/misc/wc-files0-from  | 2 +-
 tests/misc/xstrtol         | 2 +-
 tests/mv/i-1               | 2 +-
 tests/rm/empty-name        | 2 +-
 tests/rm/unreadable        | 2 +-
 39 files changed, 39 insertions(+), 39 deletions(-)

diff --git a/tests/dd/skip-seek b/tests/dd/skip-seek
index 80795d871d..2bedd3027e 100755
--- a/tests/dd/skip-seek
+++ b/tests/dd/skip-seek
@@ -24,7 +24,7 @@ SCRIPT_NAME=$0
 export SCRIPT_NAME
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/du/files0-from b/tests/du/files0-from
index 5833116852..dc626d2445 100755
--- a/tests/du/files0-from
+++ b/tests/du/files0-from
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/base64 b/tests/misc/base64
index 2784a3c09f..318f26d7a7 100755
--- a/tests/misc/base64
+++ b/tests/misc/base64
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/basename b/tests/misc/basename
index 1d400b3fd9..fb4f64083a 100755
--- a/tests/misc/basename
+++ b/tests/misc/basename
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 use File::stat;
diff --git a/tests/misc/cut b/tests/misc/cut
index 003b3635a8..fd3c1770c9 100755
--- a/tests/misc/cut
+++ b/tests/misc/cut
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/date b/tests/misc/date
index 0c0ddaa775..ec43bb7b9c 100755
--- a/tests/misc/date
+++ b/tests/misc/date
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/dircolors b/tests/misc/dircolors
index 8b5734ba5f..e235ec3a1f 100755
--- a/tests/misc/dircolors
+++ b/tests/misc/dircolors
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/dirname b/tests/misc/dirname
index 52bd97032d..057da6f4cb 100755
--- a/tests/misc/dirname
+++ b/tests/misc/dirname
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 use File::stat;
diff --git a/tests/misc/expand b/tests/misc/expand
index 0354112a1f..31969bfeb3 100755
--- a/tests/misc/expand
+++ b/tests/misc/expand
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/expr b/tests/misc/expr
index 9674bc4c51..f7968fdcd9 100755
--- a/tests/misc/expr
+++ b/tests/misc/expr
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/factor b/tests/misc/factor
index a27034fd0e..320ef2f670 100755
--- a/tests/misc/factor
+++ b/tests/misc/factor
@@ -22,7 +22,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/fmt b/tests/misc/fmt
index 5487d21176..b10c6c018f 100755
--- a/tests/misc/fmt
+++ b/tests/misc/fmt
@@ -28,7 +28,7 @@ LC_ALL=C
 export LC_ALL
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/fold b/tests/misc/fold
index bd4d29ddc8..4f9be9a590 100755
--- a/tests/misc/fold
+++ b/tests/misc/fold
@@ -34,7 +34,7 @@ case $ver in
 esac
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/head-elide-tail b/tests/misc/head-elide-tail
index a171e4ffb5..ad7c7bf403 100755
--- a/tests/misc/head-elide-tail
+++ b/tests/misc/head-elide-tail
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/ls-misc b/tests/misc/ls-misc
index ed42fb60bf..c54c7a553d 100755
--- a/tests/misc/ls-misc
+++ b/tests/misc/ls-misc
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/md5sum b/tests/misc/md5sum
index 829f0ac105..b1430994b5 100755
--- a/tests/misc/md5sum
+++ b/tests/misc/md5sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/md5sum-newline b/tests/misc/md5sum-newline
index af555d60ce..b2c6116cde 100755
--- a/tests/misc/md5sum-newline
+++ b/tests/misc/md5sum-newline
@@ -34,7 +34,7 @@ if test $filename_may_contain_newline = no; then
 fi
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/mktemp b/tests/misc/mktemp
index 6ce9ba11c5..826165633c 100755
--- a/tests/misc/mktemp
+++ b/tests/misc/mktemp
@@ -22,7 +22,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/od b/tests/misc/od
index 9763e098a1..46eb1a89d7 100755
--- a/tests/misc/od
+++ b/tests/misc/od
@@ -22,7 +22,7 @@
 
 me=`echo $0|sed 's,.*/,,'`
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/paste b/tests/misc/paste
index 9b50a511d2..21f1e47f69 100755
--- a/tests/misc/paste
+++ b/tests/misc/paste
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/pr b/tests/misc/pr
index d189ddde52..33fbc0020b 100755
--- a/tests/misc/pr
+++ b/tests/misc/pr
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/seq b/tests/misc/seq
index 64c33f2a54..05ad9286f2 100755
--- a/tests/misc/seq
+++ b/tests/misc/seq
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sha1sum b/tests/misc/sha1sum
index 56a549ed32..ae81373593 100755
--- a/tests/misc/sha1sum
+++ b/tests/misc/sha1sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sha1sum-vec b/tests/misc/sha1sum-vec
index db0b3ad992..541aaf216b 100755
--- a/tests/misc/sha1sum-vec
+++ b/tests/misc/sha1sum-vec
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sha224sum b/tests/misc/sha224sum
index decac8f9f5..e94dec1764 100755
--- a/tests/misc/sha224sum
+++ b/tests/misc/sha224sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sha256sum b/tests/misc/sha256sum
index bacf6ec591..798e8a3255 100755
--- a/tests/misc/sha256sum
+++ b/tests/misc/sha256sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sha384sum b/tests/misc/sha384sum
index 180241480a..728302e372 100755
--- a/tests/misc/sha384sum
+++ b/tests/misc/sha384sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sha512sum b/tests/misc/sha512sum
index 021ad81382..9a62d6743c 100755
--- a/tests/misc/sha512sum
+++ b/tests/misc/sha512sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sort-merge b/tests/misc/sort-merge
index b4224f71b1..8963acb98c 100755
--- a/tests/misc/sort-merge
+++ b/tests/misc/sort-merge
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/stat-printf b/tests/misc/stat-printf
index 6615df5d1d..9852e1feae 100755
--- a/tests/misc/stat-printf
+++ b/tests/misc/stat-printf
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/sum b/tests/misc/sum
index f366214067..59ac53560c 100755
--- a/tests/misc/sum
+++ b/tests/misc/sum
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/test-diag b/tests/misc/test-diag
index 9bdd95057a..8ef7f3f5e0 100755
--- a/tests/misc/test-diag
+++ b/tests/misc/test-diag
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/tsort b/tests/misc/tsort
index dd593abdfb..1bd3b90b8c 100755
--- a/tests/misc/tsort
+++ b/tests/misc/tsort
@@ -21,7 +21,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/unexpand b/tests/misc/unexpand
index de3ec87ee9..c8992ef13d 100755
--- a/tests/misc/unexpand
+++ b/tests/misc/unexpand
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/misc/wc-files0-from b/tests/misc/wc-files0-from
index d70bb7d567..3698a56791 100755
--- a/tests/misc/wc-files0-from
+++ b/tests/misc/wc-files0-from
@@ -22,7 +22,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 #/
 require 5.003;
 use strict;
diff --git a/tests/misc/xstrtol b/tests/misc/xstrtol
index cb85035432..c3a34077ad 100755
--- a/tests/misc/xstrtol
+++ b/tests/misc/xstrtol
@@ -25,7 +25,7 @@ fi
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/mv/i-1 b/tests/mv/i-1
index 24726fedb8..d52366683b 100755
--- a/tests/mv/i-1
+++ b/tests/mv/i-1
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/rm/empty-name b/tests/rm/empty-name
index 85cf1ed4da..96dab94c06 100755
--- a/tests/rm/empty-name
+++ b/tests/rm/empty-name
@@ -25,7 +25,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
diff --git a/tests/rm/unreadable b/tests/rm/unreadable
index 836cd611a4..fe5665344a 100755
--- a/tests/rm/unreadable
+++ b/tests/rm/unreadable
@@ -20,7 +20,7 @@
 . $top_srcdir/tests/require-perl
 
 me=`echo $0|sed 's,.*/,,'`
-exec $PERL -w -I$srcdir/.. -MCoreutils -M"CuTmpdir qw($me)" -- - << \EOF
+exec $PERL -w -I$top_srcdir/tests -MCoreutils -M"CuTmpdir qw($me)" -- - <<\EOF
 require 5.003;
 use strict;
 
-- 
2.47.3