summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <meyering@redhat.com>2012-04-03 21:34:57 +0200
committerJim Meyering <meyering@redhat.com>2012-04-04 12:22:24 +0200
commitb1e9cb9cd2945832b914922fa43808d6f467ba19 (patch)
tree30638ff9760d11dc100c01a091de0e63c4137d27
parente43d30eab3215bc9ff49ec7db3d3e2baa95ba070 (diff)
downloadcoreutils-b1e9cb9cd2945832b914922fa43808d6f467ba19.tar.xz
tests: use perl's qx!...! rather than `...`
* tests/misc/expr: As above. * tests/misc/ls-misc: Likewise. * tests/misc/pwd-long: Likewise. * tests/misc/uniq: Likewise.
-rwxr-xr-xtests/misc/expr2
-rwxr-xr-xtests/misc/ls-misc2
-rwxr-xr-xtests/misc/pwd-long2
-rwxr-xr-xtests/misc/uniq2
4 files changed, 4 insertions, 4 deletions
diff --git a/tests/misc/expr b/tests/misc/expr
index 781cf3879..c298d4c29 100755
--- a/tests/misc/expr
+++ b/tests/misc/expr
@@ -175,7 +175,7 @@ my @Tests =
);
# If using big numbers fails, remove all /^bignum-/ tests
-`expr $big_prod '*' $big_prod '*' $big_prod`
+qx!expr $big_prod '*' $big_prod '*' $big_prod!
or @Tests = grep {$_->[0] !~ /^bignum-/} @Tests;
# Append a newline to end of each expected 'OUT' string.
diff --git a/tests/misc/ls-misc b/tests/misc/ls-misc
index 14e117672..71647f9d6 100755
--- a/tests/misc/ls-misc
+++ b/tests/misc/ls-misc
@@ -331,7 +331,7 @@ $fail
and exit 1;
# Be careful to use the just-build dircolors.
-my $env = `$ENV{abs_top_builddir}/src/dircolors -b`;
+my $env = qx/dircolors -b/;
$env =~ s/^LS_COLORS=\'//;
$env =~ s/\';.*//sm;
$ENV{LS_COLORS} = $env;
diff --git a/tests/misc/pwd-long b/tests/misc/pwd-long
index a030a1856..051509a7d 100755
--- a/tests/misc/pwd-long
+++ b/tests/misc/pwd-long
@@ -97,7 +97,7 @@ my $pwd_binary = "$build_src_dir/pwd";
-x $pwd_binary
or die "$ME: $pwd_binary is not an executable file\n";
-chomp (my $actual = `$pwd_binary`);
+chomp (my $actual = qx!$pwd_binary!);
# Convert the absolute name from pwd into a $CWD-relative name.
# This is necessary in order to avoid a spurious failure when run
diff --git a/tests/misc/uniq b/tests/misc/uniq
index f7211a330..91028a9c7 100755
--- a/tests/misc/uniq
+++ b/tests/misc/uniq
@@ -86,7 +86,7 @@ my $locale = $ENV{LOCALE_FR};
and CuSkip::skip "$prog: skipping this test -- no appropriate locale\n";
# See if isblank returns true for nbsp.
-my $x = `env printf '\xa0'| LC_ALL=$locale tr '[:blank:]' x`;
+my $x = qx!env printf '\xa0'| LC_ALL=$locale tr '[:blank:]' x!;
# If so, expect just one line of output in the schar test.
# Otherwise, expect two.
my $in = " y z\n\xa0 y z\n";