diff options
author | Jim Meyering <meyering@redhat.com> | 2012-04-03 21:34:57 +0200 |
---|---|---|
committer | Jim Meyering <meyering@redhat.com> | 2012-04-04 12:22:24 +0200 |
commit | b1e9cb9cd2945832b914922fa43808d6f467ba19 (patch) | |
tree | 30638ff9760d11dc100c01a091de0e63c4137d27 /tests/misc | |
parent | e43d30eab3215bc9ff49ec7db3d3e2baa95ba070 (diff) | |
download | coreutils-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.
Diffstat (limited to 'tests/misc')
-rwxr-xr-x | tests/misc/expr | 2 | ||||
-rwxr-xr-x | tests/misc/ls-misc | 2 | ||||
-rwxr-xr-x | tests/misc/pwd-long | 2 | ||||
-rwxr-xr-x | tests/misc/uniq | 2 |
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"; |